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ABSTRACT 


The  failure  information  propagation  model  (FIPM)  data  base  was 
developed  to  store  and  manipulate  the  large  amount  of 
information  anticipated  for  the  various  Space  Shuttle  Main 
Engine  (SSME)  FIPMs.  This  report  describes  the  organization  and 
structure  of  the  FIPM  data  base.  This  description  includes  a 
summary  of  the  data  fields  and  key  attributes  associated  with 
each  FIPM  data  file.  The  report  also  discusses  the  menu-driven 
software  developed  to  facilitate  and  control  the  entry, 
modification,  and  listing  of  data  base  records.  The  final 
section  of  the  report  describes  the  transfer  of  the  FIPM  data 
base  and  software  to  the  NASA  Marshall  Space  Flight  Center.  The 
report  appendixes  include  complete  listings  of  all  of  the  data 
base  definition  commands  and  software  procedures. 


TABLE  OF  CONTENTS 


Page 

INTRODUCTION  1 

FAILURE  INFORMATION  PROPAGATION  MODEL  5 

FIPM  Definitions  5 

FI PM  Methodology  6 

SSME  FIPMs 8 

FIPM  DATA  BASE 11 

Data  Base  Structure 11 

Data  Description 16 

Domains  SYSTEMS  and  SYSTEMS.FORM  17 

Domains  MODULES  and  MODULES.FORM  20 

Domains  FAILUREMODES  and  FAILUREMODES.FORM  22 

Domains  CONNECTIONS  and  CONNECTIONS.FORM  24 

Domains  PR0PAGATI0NS.A150  through  PROPAGAT I 0NS_Z9 10  and 

PRO  PAG AT I ONS_FORM 26 

Domains  REFERENCES  and  REFERENCES.FORM  30 

FIPM  DATA  BASE  SOFTWARE 33 

Digital  Command  Language  Procedures  33 

Datatrieve  Command  Files,  Procedures,  and  Tables  41 

Terminal  Data  Management  System  Forms  47 

FIPM  DATA  BASE  TRANSFER 49 

REFERENCES 55 

APPENDIX  A - FIPM  DOMAIN  DEFINITIONS A-l 

APPENDIX  B — FIPM  RECORD  DEFINITIONS B-l 

APPENDIX  C — FIPM  FILE  DEFINITIONS C-l 

APPENDIX  D — FIPM  DCL  COMMAND  PROCEDURES D-l 

APPENDIX  E — FIPM  DATATRIEVE  COMMAND  FILES  E-l 

APPENDIX  F - FIPM  DATATRIEVE  PROCEDURES  F-l 

APPENDIX  G — FIPM  DATATRIEVE  TABLES G-l 

APPENDIX  H — FIPM  TDMS  FORM  DEFINITIONS H-l 


i 


LIST  OF  TABLES 


Page 

TABLE  1.  FIPM  RECORDS,  DOMAINS,  AND  DATA  FILES 15 

TABLE  2.  SUMMARY  OF  FIPM  RECORD  SYSTEMS.REC 18 

TABLE  3.  KEY  FIELDS  FOR  DOMAINS  SYSTEMS  AND  SYSTEMS.FORM  20 

TABLE  4.  SUMMARY  OF  FIPM  RECORD  MODULES_REC 21 

TABLE  5.  KEY  FIELDS  FOR  DOMAINS  MODULES  AND  MODULES.FORM  22 

TABLE  6.  SUMMARY  OF  FIPM  RECORD  FAILUREMODES_REC 23 

TABLE  7.  KEY  FIELDS  FOR  DOMAINS  FAILUREMODES 

AND  FAILUREMODES_FORM  24 

TABLE  8.  SUMMARY  OF  FIPM  RECORD  CONNECTIONS.REC 25 

TABLE  9.  KEY  FIELDS  FOR  DOMAINS  CONNECTIONS 

AND  CONNECTIONS.FORM  26 

TABLE  10.  SUMMARY  OF  FIPM  RECORD  PROPAGATIONS_REC 27 

TABLE  11.  KEY  FIELDS  FOR  DOMAINS  PR0PAGATI0NS_A150 

THROUGH  PR0PAGATI0NS_Z910  AND 

PROPAGATIONS.FORM  29 

TABLE  12.  SUMMARY  OF  FIPM  RECORD  REFERENCES.REC 31 

TABLE  13.  KEY  FIELDS  FOR  DOMAINS  REFERENCES  AND  REFERENCES_FORM  . . 32 


LIST  OF  FIGURES 

Page 

FIGURE  1.  DATATRIEVE  DEFINE  DOMAIN  COMMAND  12 

FIGURE  2.  DATATRIEVE  DEFINE  RECORD  COMMAND  13 

FIGURE  3.  DATATRIEVE  DEFINE  FILE  COMMAND  14 

FIGURE  4.  DOMAIN  DEFINITION  COMMANDS  FOR  PR0PAGATI0NS_A150  ....  29 

FIGURE  5.  FILE  DEFINITION  COMMANDS  FOR  PR0PAGATI0NS_A150  30 

FIGURE  6.  MENU  FOR  CONTROLLED  ACCESS  TO  FIPM  DATA  BASE 35 

FIGURE  7.  TOP-LEVEL  FIPM  SOFTWARE  FLOWS  35 

FIGURE  8.  MENU  FOR  STORING  FIPM  DATA  BASE  RECORDS 37 

FIGURE  9.  PROGRAM  FLOW  FOR  STORING  FIPM  DATA 37 

FIGURE  10.  MENU  FOR  MODIFYING  FIPM  DATA  BASE  RECORDS 38 

FIGURE  11.  PROGRAM  FLOW  FOR  MODIFYING  FIPM  DATA 38 

FIGURE  12.  MENU  FOR  LISTING  FIPM  DATA  BASE  RECORDS 39 

FIGURE  13.  PROGRAM  FLOW  FOR  LISTING  FIPM  DATA 40 

FIGURE  14.  SAMPLE  DATATRIEVE  TABLE  41 

FIGURE  15.  DATATRIEVE  COMMAND  FILES,  PROCEDURES  AND 

TABLES  USED  TO  STORE  FIPM  DATA 43 

FIGURE  16.  DATATRIEVE  COMMAND  FILES,  PROCEDURES  AND 

TABLES  USED  TO  MODIFY  FIPM  DATA 44 

FIGURE  17.  DATATRIEVE  COMMAND  FILES  AND  PROCEDURES 

USED  TO  LIST  FIPM  DATA 46 

FIGURE  18.  MISCELLANEOUS  DATATRIEVE  PROCEDURES  AND 

TABLES  USED  FOR  FIPM 46 


ii 


LIST  OF  FIGURES 
(Continued) 


Page 


FIGURE  19.  FIPM  REQUEST  LIBRARY  DEFINITION  47 

FIGURE  20.  VAX/VMS  FILES  USED  TO  TRANSFER  FIPM  DATA  BASE 49 

FIGURE  21.  FIPM  DIRECTORY  STRUCTURE  51 

FIGURE  22.  DIRECTORY  DEV$206: [BCDSSME2]  52 

FIGURE  23.  DIRECTORY  DEV$206 : [BCDSSME2 . DATA]  52 

FIGURE  24.  DIRECTORY  DEV$206: [BCDSSME2.DTR]  53 

FIGURE  25.  DIRECTORY  DEV$206: [BCDSSME2. FIPM]  53 

FIGURE  26.  DIRECTORY  DEV$206: [BCDSSME2. FORMS]  53 


i i i 


(This  page  intentionally  blank) 
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on 

FAILURE  INFORMATION  PROPAGATION  MODEL 
DATA  BASE  AND  SOFTWARE 
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INTRODUCTION 


The  failure  information  propagation  model  (FIPM)  data  base  and 
software  were  part  of  an  overall  study  of  the  Space  Shuttle  Main  Engine 
(SSME)  monitoring  and  diagnostic  system.  This  study  was  conducted  for  the 
National  Aeronautics  and  Space  Administration,  George  C.  Marshall  Space 
Flight  Center  (NASA  MSFC)  under  Contract  No.  NASw-3737.  The  principal 
tasks  which  comprised  this  study  include: 

• Review  of  the  SSME  failure  data  base  to  identify  major 
failure  types  and  to  establish  engine  monitoring  priorities 

• Survey  of  diagnostic  sensors,  signal  processing  techniques, 
and  monitoring  systems  associated  with  aerospace  and  other 
industries 

• Systems-level  analysis  of  the  current  SSME  monitoring  and 
diagnostic  system  using  the  outputs  of  the  SSME  failure  data 
review  and  the  diagnostic  survey 

• Recommendations  concerning  increased  utilization  of  the 
current  SSME  monitoring/diagnostic  data  and  potential 
improvements  in  the  overall  system. 

The  major  emphasis  of  this  study  was  to  evaluate  means  for  identifying  and 
collecting  high-quality  data  which  maximizes  knowledge  of  the  overall 
engine  condition.  Information  of  this  type  is  essential  for  both  flight 
and  ground  test  operations.  The  study  also  considers  both  real-time  and 
post-operation  processing  of  the  collected  data. 

The  SSME  failure  data  review  and  the  diagnostic  survey  were 
conducted  in  parallel  during  the  initial  phase  of  this  study.  These  tasks 
provided  valuable  data  on  the  engine,  its  operating  characteristics,  and 
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the  general  state  of  machine  diagnostics.  This  information  has  been 
combined  with  the  results  of  the  current  systems-level  analysis  of  the 
SSME  monitoring  system  to  make  recommendations  concerning  potential 
diagnostic  improvements.  The  activities  related  to  the  SSME  failure  data 
review  and  the  diagnostic  survey  are  discussed  in  a previous  technical 
report  titled  "Studies  and  Analyses  of  the  Space  Shuttle  Main  Engine, 
Technical  Report  Covering  SSME  Failure  Data  Review,  Diagnostic  Survey,  and 
SSME  Diagnostic  Evaluation"  (Reference  1).  This  document  also  includes  a 
discussion  of  the  early  activities  on  the  SSME  diagnostic  evaluation  task. 

The  analysis  tool  selected  for  the  evaluation  of  the  engine 
monitoring  system  was  the  failure  information  propagation  model  (FIPM). 
The  FIPM  is  a technique  developed  by  Battelle  to  qualitatively  analyze  the 
information  bearing  value  of  all  potential  test  points  in  a system. 
Initial  attempts  to  create  FIPMs  for  the  high-pressure  oxidizer  turbopump 
(HPOTP)  and  the  high-pressure  fuel  turbopump  (HPFTP)  demonstrated  that 
large  quantities  of  data  would  be  associated  with  the  various  SSME  models. 
This  observation  led  to  the  decision  to  implement  an  interactive  computer 
data  base  system  to  store  and  manipulate  this  information.  The  FIPM  data 
base  is  one  of  two  major  elements  in  the  current  methodology.  The  data 
base  serves  as  the  repository  for  all  of  the  data  required  to  model  and 
analyze  given  engine  components.  The  FIPM  drawing  is  the  other  principal 
element.  The  drawing  is  used  primarily  during  generation  of  the 
information  which  is  stored  in  the  data  base. 

The  FIPM  data  base  was  developed  on  a Digital  Equipment 
Corporation  (DEC)  VAX  computer.  The  software  which  controls  the  input, 
modification,  and  listing  of  data  base  records  has  been  implemented  using 
several  different  DEC  software  packages.  This  report  documents  the  FIPM 
software  developed  during  this  study.  The  following  items  are  included: 

• Outline  of  the  overall  FIPM  process 

• General  discussion  of  the  FIPM  data  base 

• Specific  features  of  the  FIPM  data  base  software 

• Listings  of  all  the  computer  procedures,  form  definitions, 
etc. 
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The  HPOTP  was  the  first  engine  component  to  be  modeled  using  this  data 
base  software.  The  HPOTP  model  was  completed  in  February  1987.  This  FIPM 
is  the  subject  of  a separate  technical  report  titled  "Studies  and  Analyses 
of  the  Space  Shuttle  Main  Engine,  Technical  Report  on  High-Pressure 
Oxidizer  Turbopump  Failure  Information  Propagation  Model"  (Reference  2). 
A copy  of  the  FIPM  software  and  the  HPOTP  data  have  been  transferred  to 
NASA  MSFC. 
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FAILURE  INFORMATION  PROPAGATION  MODEL 

The  failure  information  propagation  model  (FIPM)  is  an  analysis 
tool  developed  by  Battelle's  Columbus  Division  to  systematically  evaluate 
the  potential  test  points  in  a system.  The  objective  of  this  evaluation 
is  to  qualitatively  assess  the  information  bearing  value  of  each  test 
point.  The  FIPM  methodology  had  demonstrated  the  capability  to  provide 
useful  diagnostic  insights  for  a broad  range  of  mechanical  and  electronic 
systems  in  several  previous  studies.  The  FIPM  was  selected  on  this  basis 
as  the  primary  means  for  performing  the  SSME  diagnostic  assessment.  It 
must  be  noted  that  the  FIPM  analyzes  the  propagation  of  failure 
information  and  not  the  actual  failure.  The  model  assumes  that  the  system 
being  depicted  is  in  a near-normal  state  of  operation.  The  failure 
information  flow  is  described  for  the  instant  of  time  immediately 
following  a given  failure.  Three  principal  applications  exist  for  the 
output  of  this  model.  These  applications  are: 

• Design  of  sensor  systems  for  new  devices  or  components 

• Evaluation  of  existing  sensor  systems  to  maximize  the 
information  yield 

• Identification  of  sensor  research  and  development  needed  to 
target  key  diagnostic  data. 

This  section  briefly  defines  the  terminology  associated  with  an  FIPM, 
describes  the  general  features  of  the  FIPM  methodology,  and  discusses  the 
specifics  of  applying  the  FIPM  to  analyze  the  SSME. 

FIPM  Definitions 


The  following  terms  are  used  in  reference  to  a failure 
information  propagation  model: 

• SYSTEM  - The  top-level  item  or  component  which  is  being 
modeled  (analyzed) 

• MODULE  - A subelement  or  function  of  the  system 
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• FAILURE  MODE  - The  physical  mechanism  or  process  by  which  a 
module  ceases  to  perform  its  intended  function 

• CONNECTION  - A path  (mechanical,  fluid,  etc.)  which  exists 
between  two  modules 

• FAILURE  INFORMATION  PROPAGATION  - A description  of  specific 
signal  characteristics  associated  with  a given  failure  mode 
which  can  be  detected  at  a particular  connection. 

FI  PM  Methodology 

The  failure  information  propagation  model  basically  divides  the 
system  under  analysis  into  its  constituent  modules,  describes  the  failure 
modes  for  each  of  the  modules,  catalogs  the  physical  connections  between 
the  modules,  details  the  flow  of  failure  information  through  the  various 
connections,  and  groups  the  failure  information  according  to  signal 
properties.  An  illustrative  example  of  an  exhaust  fan  FI  PM  is  given  in  an 
earlier  Battelle  technical  report  (Reference  1).  A series  of  guidelines, 
definitions,  and  rules  have  been  developed  to  assist  in  the  formulation  of 
an  FIPM.  Two  different  approaches  have  been  used  to  display  and  store 
FIPM  related  data.  Each  of  these  techniques  is  discussed  briefly  in  this 
subsection. 

The  initial  FIPM  procedure  was  based  entirely  on  a drawing  or 
graphical  representation  of  the  system.  All  of  the  data  associated  with 
the  model  was  shown  on  this  drawing.  This  approach  worked  very  well  for 
the  first  three  applications  of  the  modeling  technique  (photographic  copy 
machine,  ion  chamber,  and  home  furnace).  The  limitations  of  this 
graphical  FIPM  approach  were  demonstrated  during  subsequent  attempts  to 
model  more  complex  mechanical  systems  such  as  the  SSME.  The  major  problem 
is  the  excessive  amount  of  data  which  must  be  displayed  while  maintaining 
reasonable  constraints  on  physical  size.  It  is  also  very  difficult  to 
adequately  differentiate  all  of  the  various  failure  signals  and 
characteristics  within  the  context  of  a graphical  representation. 

The  current  FIPM  methodology  consists  of  two  primary  elements. 
These  elements  are: 
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• Simplified  FIPM  drawing 

• FIPM  data  base. 

The  present  FIPM  drawing  format  summarizes  key  information  about  the 
system  being  modeled  for  use  during  generation  and  input  of  appropriate 
data  base  records.  The  data  base  stores  all  of  the  information  associated 
with  the  FIPM.  This  includes  the  items  shown  on  the  drawing  plus  a 
substantial  amount  of  supplemental  information  and  comments.  The  data 
base  is  the  only  location  where  the  actual  failure  information 
propagations  are  stored.  The  FIPM  data  base  is  described  in  a subsequent 
section  of  this  report.  The  FIPM  drawing  is  briefly  discussed  in  the 
following  paragraphs. 

The  first  step  in  formulating  a failure  information  propagation 
model  is  to  develop  a graphical  representation  or  drawing  of  the  system 
being  analyzed.  The  principal  function  of  the  FIPM  drawing  is  to  describe 
the  constituent  modules  of  the  system  and  to  identify  the  connections 
between  these  modules.  The  initial  drafts  of  the  FIPM  drawing  are 
prepared  by  technical  analysts  or  engineers  familiar  with  the  system 
involved.  The  number  of  modules  included  is  chosen  to  be  consistent  with 
the  overall  level  of  detail  required  for  the  analysis.  The  accurate 
depiction  of  the  system  is  critical  to  the  overall  development  of  the 
FIPM.  This  illustration  is  the  foundation  for  the  entire  data  base 
associated  with  a given  system.  Careful  construction  and  review  of  the 
FIPM  drawing  minimizes  potential  corrections  and  changes  to  the  data  base. 

The  FIPM  drawing  is  composed  basically  of  boxes  and  lines  which 
connect  the  boxes.  Each  box  on  the  drawing  represents  a particular 
module.  The  lines  represent  the  physical  connections  between  the  various 
modules.  Additional  information  is  also  shown  for  both  the  boxes 
(modules)  and  the  lines  (connections)  to  further  identify  specific 
physical  details  associated  with  both  of  these  elements.  Each  module  on 
the  FIPM  drawing  displays  the  following  items  of  information:  system 
code,  module  number,  module  name,  and  module  failure  modes.  Examination 
of  the  line  type  and  symbols  associated  with  specific  connections  enables 
the  following  items  of  information  to  be  determined:  general  type  of 
connection  (solid,  liquid,  etc.),  additional  data  on  the  exact  type  of 
connection  (common-piece,  oxygen,  etc.),  unanticipated  connection,  and 
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connection  to  external  system.  Symbols  are  combined  as  required  to 
completely  describe  a particular  connection.  The  format  selected  for  the 
FI PM  drawing  allows  all  of  the  necessary  data  to  be  displayed  in  black  and 
white  for  ease  of  reproduction. 


SSME  FIPMs 


The  Space  Shuttle  Main  Engine  is  the  most  complex  mechanical 
system  evaluated  to  date  using  the  failure  information  propagation  model. 
The  initial  approach  to  analyzing  the  SSME  divides  the  engine  into  major 
components  (systems)  which  are  examined  independently.  This  process 
reduces  the  size  of  the  individual  models  to  a manageable  level  and  also 
eliminates  the  crossflow  of  failure  information  between  systems.  The  FIPM 
for  each  of  the  engine  elements  can  be  analyzed  to  yield  monitoring 
recommendations  for  that  particular  component.  After  studying  each  of  the 
major  systems,  the  individual  results  can  be  integrated  to  yield  a set  of 
diagnostic  requirements  and  recommendations  for  the  entire  SSME. 

The  "SSME  Failure  Mode  and  Effects  Analysis  (FMEA)  and  Critical 
Items  List"  compiled  by  the  Rocketdyne  Division,  Rockwell  International 
Corporation  (Reference  3)  includes  over  200  SSME  components.  Developing 
an  individual  FIPM  for  each  of  these  items  would  not  be  the  most  efficient 
way  to  analyze  the  entire  engine.  Certain  components,  such  as  propellant 
ducts  and  pressurant  lines,  are  relatively  simple  in  nature.  These 
systems  can  be  easily  modeled  with  just  a few  modules  and  connections. 
SSME  items  of  this  type  are  included  as  modules  in  the  FIPM  of  the 
appropriate  major  component.  For  example,  the  high-pressure  oxidizer  duct 
is  included  with  the  HPOTP  FIPM. 

Each  system  (major  component)  is  represented  in  the  FIPM  data 
base  by  a four-digit  code.  These  system  designations  coincide  with  the 
Rocketdyne  FMEA  item  numbers  (Reference  3,  Table  2-1)  whenever  feasible. 
The  record  which  defines  the  system  also  indicates  any  additional 
Rocketdyne  FMEA  items  which  are  included  in  that  particular  FIPM. 
Components  or  systems  which  do  not  have  a corresponding  Rocketdyne  FMEA 
number  are  given  a similar  four-digit  code.  Confusion  is  avoided  by 
selecting  a number  not  used  by  Rocketdyne. 
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The  FIPM  methodology,  as  used  for  analyzing  the  SSME,  includes 
special  provisions  for  handling  the  connections  between  major  engine 
components  (FIPM  systems).  This  feature  of  the  technique  allows  the  data 
flows  between  systems  to  be  evaluated  on  a preliminary  basis.  It  also 
enables  the  future  expansion  of  the  SSME  model  to  a higher  level  through 
the  combination  of  various  system  FIPMs. 
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FIPM  DATA  BASE 


The  FIPM  data  base  is  a computerized  system  which  stores  all  of 
the  data  necessary  to  create  the  various  SSME  failure  information 
propagation  models.  The  information  contained  in  the  FIPM  data  base  is 
divided  into  the  following  six  categories:  systems,  modules,  connections, 
failure  modes,  failure  information  propagations,  and  references.  Each  of 
these  categories  corresponds  to  a major  element  of  the  overall  FIPM 
process  as  discussed  in  the  previous  section.  The  data  base  was  designed 
to  store  the  essential  FIPM  information,  additional  descriptive  data 
pertinent  to  each  category  and  entries  which  document  data  base 
operations.  Details  on  the  structure  and  contents  of  the  FIPM  data  base 
are  included  in  the  following  subsections. 

The  FIPM  data  base  has  been  implemented  on  a Digital  Equipment 
Corporation  (DEC)  VAX  computer.  The  data  base  management  system  selected 
was  DEC'S  VAX  Datatrieve.  The  computer  and  data  base  system  were  selected 
based  on  the  availability  of  these  items  at  both  Battel le  and  NASA  MSFC. 
The  data  base  design  and  development  activities  were  performed  on  the 
Battelle  computers.  After  entry  and  verification  at  Battelle,  the  initial 
FIPM  data  files  were  transferred  to  NASA  MSFC  in  February  1987. 

Data  Base  Structure 


The  fundamental  elements  required  to  create  a Datatrieve  data 
base  are  records,  domains,  and  data  files.  Records  are  the  detailed 
descriptions  of  the  data  fields  (information)  which  are  stored.  Domains 
are  sets  of  data  which  share  a common  record  definition.  The  data  files 
are  the  actual  VAX  RMS  (record  management  services)  files  which  contain 
the  information.  Each  of  these  elements  must  be  defined  at  the  Datatrieve 
command  level  before  information  can  be  stored.  A domain  is  logically 
related  to  the  corresponding  record  and  data  file  through  the  domain 
definition.  The  definition  for  one  of  the  FIPM  domains  (SYSTEMS)  is  shown 
in  Figure  1.  An  excerpt  from  the  corresponding  record  definition 
(SYSTEMS_REC)  is  displayed  in  Figure  2.  The  file  definition  command  for 
this  domain  is  illustrated  in  Figure  3. 
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DEFINE  DOMAIN  SYSTEMS  USING  SYSTEMS.REC  ON 


DEV$206 : [BCDSSME2 . DATA] SYSTEMS . DAT 


1 - Domain  name 

2 - Record  name 

3 - Data  file 

4 - Definition  terminator 


FIGURE  1.  DATATRIEVE  DEFINE  DOMAIN  COMMAND 


DEFINE  RECORD  SYSTEMS.REC  USING 


05  DATE.CREATED 


! 


USAGE 

QUERY.NAME 

EDIT.STRING 


IS  DATE 

IS  DCREATED 

IS  X (23) . -0 


05  SYSTEM  PICTURE  IS  X(4) 

QUERY_NAME  IS  SYS. 


1 - Record  name 

2 - Comment  line 

3 - Group  field 

4 - Level  number 

5 - Field  name 

6 - Elementary  field 

7 - Field  definition  clauses 

8 - Field  definition  terminator 

9 - Additional  field  definitions 
10  - Record  definition  terminator 


FIGURE  2. 


DATATRIEVE  DEFINE  RECORD  COMMAND 
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DEFINE  FILE  FOR  SYSTEMS  KEY  = DATE_CREATED 

KEY  = SYSTEM 
KEY  = SYSTEM.NAME 


1 - Domain  name 

2 - Field  option  to  allow 

duplicate  values 

3 - Primary  key  clause 

4 - Secondary  key  clauses 


FIGURE  3.  DATATRIEVE  DEFINE  FILE  COMMAND 


The  FI PM  data  base  is  structured  around  six  Datatrieve  records. 
These  include: 

• SYSTEMS.REC 

• MODULES_REC 

• FAILUREMODES.REC 

• CONNECTIONS_REC 

• PROPAGAT I ONS_R  EC 

• REFERENCES.REC. 

Each  of  the  records  SYSTEMS.REC,  MODULES.REC,  FAILUREMODES.REC, 
CONNECTIONS_REC , and  REFERENCES.REC  is  associated  with  two  FI  PM  domains. 
PROPAGAT I0NS_REC  is  the  basis  for  a group  of  domains  which  store  SSME 
failure  information  propagation  records.  Table  1 lists  all  of  the  FIPM 
records,  domains,  and  data  files. 


TABLE  1.  FI  PM  RECORDS,  DOMAINS,  AND  DATA  FILES 
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The  failure  information  propagations  are  not  stored  in  a single 
domain  (data  file)  due  to  the  large  number  of  data  records  involved.  In 
the  case  of  the  HPOTP  FIPM,  there  are  8213  failure  information 
propagations.  The  access  time  for  large  files  is  a limiting  factor  on  the 
overall  size  of  the  file.  Experience  with  the  HPOTP  model  indicated  that 
a separate  failure  information  propagation  domain  should  be  created  for 
each  SSME  system  (major  component)  being  modeled.  This  format  was  adopted 
for  the  FIPM  data  base.  As  mentioned  earlier,  the  same  Datatrieve  record 
definition  is  used  for  all  of  the  propagations  domains. 

The  data  file  associated  with  each  FIPM  domain  is  a VAX  RMS 
indexed  sequential  file.  These  files  contain  an  index  of  pointers  based 
on  the  specified  primary  and  secondary  keys.  The  index  allows  the  file 
access  system  to  rapidly  locate  a record  with  specific  attributes.  This 
feature  significantly  improves  the  time  required  for  many  input  and  output 
operations.  A primary  key  and  at  least  one  secondary  key  have  been 
defined  for  all  of  the  FIPM  domains. 

Data  Description 

The  data  formats  established  for  the  various  FIPM  domains  are 
described  in  the  following  subsections.  The  data  fields,  query  names, 
field  type,  data  class,  field  length,  and  total  record  length  are 
discussed  for  each  of  the  Datatrieve  domains.  A query  name  is  an 
abbreviated  form  of  the  field  name  which  can  be  used  during  Datatrieve 
operations.  The  field  type  is  group,  elementary,  or  redefines.  A group 
field  contains  one  or  more  additional  fields  while  an  elementary  field 
contains  a single  item  of  data.  A redefines  field  creates  an  alternate 
definition  for  either  a group  or  an  elementary  field  without  increasing 
the  total  length  of  the  record.  The  field  class  describes  the  nature  of 
the  data  contained  in  that  field.  Three  field  classes  were  used  to  define 
the  six  FIPM  records:  alphanumeric,  numeric,  and  date.  An  alphanumeric 

field  can  contain  any  member  of  the  Datatrieve  character  set  (letter, 
digit,  or  special).  A numeric  field  is  restricted  to  digits  plus  an 
optional  sign  (+  or  -) . The  date  field  is  required  for  storing  and 

manipulating  dates  in  Datatrieve.  The  key  fields  which  have  been  defined 
for  the  respective  VAX  RMS  files  are  also  identified. 
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Domains  SYSTEMS  and  SYSTEMS_FORM 

The  domain  SYSTEMS  stores  information  which  defines  the  top- 
level  items  or  components  (systems)  being  modeled.  Each  major  engine 
component  (high-pressure  oxidizer  turbopump,  oxidizer  preburner,  etc.)  has 
a corresponding  FIPM  system.  A field  has  been  provided  for  storing  a 
descriptive  name  for  each  system.  A total  of  15  fields  have  been  defined 
for  identifying  the  Rocketdyne  FMEA  items  which  comprise  each  system. 
Fields  also  are  included  for  specifying  reference  documents  which  were 
used  in  formulating  each  system  model.  Several  additional  fields  are 
defined  for  storage  of  pertinent  data  relative  to  the  creation  and 
modification  of  each  record.  Domain  SYSTEMS_FORM  is  used  to  display 
input/output  forms  on  the  computer  terminal  during  data  entry  and 
modification.  It  is  functionally  identical  to  SYSTEMS  but  contains  only 
one  record. 

The  domain  definitions  for  SYSTEMS  and  SYSTEMS.FORM  are  included 
in  Appendix  A.  The  corresponding  record  definition,  SYSTEMS_REC,  is 
contained  in  Appendix  B.  The  major  features  associated  with  this  record 
are  summarized  in  Table  2.  The  Datatrieve  file  definition  commands  for 
both  of  these  domains  are  included  in  Appendix  C.  The  key  fields  for 
SYSTEMS  and  SYSTEMS.FORM  are  given  in  Table  3. 


TABLE  2.  SUMMARY  OF  FI  PM  RECORD  SYSTEMS_REC 
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TABLE  2.  SUMMARY  OF  FI PM  RECORD  SYSTEMS.REC  (CONTINUED) 
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TABLE  3.  KEY  FIELDS  FOR  DOMAINS  SYSTEMS  AND  SYSTEMS.FORM 


Field 

Key 

Type 

Dupl icate 
Values 

Change 

Values 

DATE_CREATED 

Primary 

Yes 

No 

SYSTEM 

Alternate 

Yes 

Yes 

SYSTEM_NAME 

Alternate 

Yes 

Yes 

Domains  MODULES  and  M0DULES_F0RM 

The  domain  MODULES  stores  information  which  defines  the 
subelements  or  functions  comprising  each  of  the  systems  (SSME  components) 
being  modeled.  Each  FIPM  system  has  multiple  modules  which  are  identified 
by  the  combination  of  the  system  and  a unique  module  number.  Fields  have 
been  included  for  storing  a descriptive  name  and  the  general  function 
associated  with  each  module.  Several  additional  fields  also  are  defined 
for  storage  of  pertinent  data  relative  to  the  creation  and  modification  of 
each  record.  Domain  M0DULES_F0RM  is  used  to  display  input/output  forms  on 
the  computer  terminal  during  data  entry  and  modification.  It  is 
functionally  identical  to  MODULES  but  contains  only  one  record. 

The  domain  definitions  for  MODULES  and  M0DULES_F0RM  are  included 
in  Appendix  A.  The  corresponding  record  definition,  M0DULES_REC,  is 
contained  in  Appendix  B.  The  major  features  associated  with  this  record 
are  summarized  in  Table  4.  The  Datatrieve  file  definition  commands  for 
both  of  these  domains  are  included  in  Appendix  C.  The  key  fields  for 
MODULES  and  MODULES.FORM  are  given  in  Table  5. 


TABLE  4.  SUMMARY  OF  FI PM  RECORO  MODULES.REC 
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TABLE  5.  KEY  FIELDS  FOR  DOMAINS  MODULES  AND  MODULES_FORM 


Field 

Key 

Type 

Dupl icate 
Values 

Change 

Values 

DATE_CREATED 

Primary 

Yes 

No 

SYSTEM_MODULE 

Alternate 

Yes 

Yes 

SYSTEM_MODULE_NAME 

Alternate 

Yes 

Yes 

Domains  FAILUREMODES  and  FAILUREMODES_FORM 

The  domain  FAILUREMODES  stores  information  which  defines  the 
failure  modes  identified  for  each  module.  The  individual  modules,  in 

general,  will  have  multiple  failure  modes.  The  principal  field  for  each 
record  is  a 20-character  code  which  specifies  the  source  module,  the 
failure  mechanism,  and  any  accomplice  module  which  may  be  involved. 
Fields  are  provided  for  the  entry  of  text  which  describes  the  failure  mode 
and  identifies  the  general  effects  associated  with  it.  Several  additional 
fields  also  are  defined  for  storage  of  pertinent  data  relative  to  the 
creation  and  modification  of  each  record.  Domain  FAILUREMODES_FORM  is 

used  to  display  input/output  forms  on  the  computer  terminal  during  data 
entry  and  modification.  It  is  functionally  identical  to  FAILUREMODES  but 
contains  only  one  record. 

The  domain  definitions  for  FAILUREMODES  and  FAILUREMODES_FORM 
are  included  in  Appendix  A.  The  corresponding  record  definition, 
FAILUREMODES_REC,  is  contained  in  Appendix  B.  The  major  features 
associated  with  this  record  are  summarized  in  Table  6.  The  Datatrieve 

file  definition  commands  for  both  of  these  domains  are  included  in 
Appendix  C.  The  key  fields  for  FAILUREMODES  and  FAILUREMODES.FORM  are 
given  in  Table  7. 
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TABLE  7.  KEY  FIELDS  FOR  DOMAINS  FAILUREMODES 


AND  FAILUREMODES. 

.FORM 

Key 

Duplicate 

Change 

Field 

Type 

Values 

Values 

DATE_CREATED 

Primary 

Yes 

No 

FMCODE 

Alternate 

Yes 

Yes 

Domains  CONNECTIONS  and  CONNECTIONS_FORM 

The  domain  CONNECTIONS  stores  information  which  defines  the 
physical  paths  which  exist  between  modules.  In  general,  each  module  will 
have  multiple  connections  to  the  adjacent  module(s).  The  principal  field 
in  each  record  is  a 21-character  code  which  specifies  the  two  modules 
being  connected  and  the  exact  nature  of  the  connection.  Several 
additional  fields  also  are  defined  for  storage  of  pertinent  data  relative 
to  the  creation  and  modification  of  each  record.  Domain  C0NNECTI0NS_F0RM 
is  used  to  display  input/output  forms  on  the  computer  terminal  during  data 
entry  and  modification.  It  is  functionally  identical  to  CONNECTIONS  but 
contains  only  one  record. 

The  domain  definitions  for  CONNECTIONS  and  CONNECTIONS.FORM  are 
included  in  Appendix  A.  The  corresponding  record  definition, 
CONNECTIONS_REC,  is  contained  in  Appendix  B.  The  major  features 
associated  with  this  record  are  summarized  in  Table  8.  The  Datatrieve 

file  definition  commands  for  both  of  these  domains  are  included  in 
Appendix  C.  The  key  fields  for  CONNECTIONS  and  C0NNECTI0NS_F0RM  are  given 
in  Table  9. 


TABLE  8.  SUMMARY  OF  FIPM  RECORD  CONNECT IONS_REC 
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TABLE  9.  KEY  FIELDS  FOR  DOMAINS  CONNECTIONS 
AND  CONNECTIONS.FORM 


Key 

Dupl icate 

Change 

Field 

Type 

Values 

Values 

DATE_CREATED 

Primary 

Yes 

No 

C0DE_N  LIMBER 

Alternate 

Yes 

Yes 

Domains  PROPAGATIONS_A15Q  through  PRQPAGATI0NS_Z910 
and  PROPAGATIQNS_FORM 

The  domains  PR0PAGATI0NS_A150  through  PR0PAGATI0NS_Z910  store 
the  actual  failure  information  propagation  data.  Each  of  the  items  in 
domain  SYSTEMS  has  a separate  propagations  domain.  One  of  the  fields 
identifies  the  module  failure  mode  which  initiated  the  information  flow. 
Another  field  specifies  the  particular  connection  to  which  the  data  has 
passed.  Most  of  the  fields  describe  the  specific  characteristics  of  the 
failure  signal.  Three  text  fields  have  been  included  for  entry  of 
comments  pertaining  to  the  failure  information  propagation.  Three  fields 
also  are  defined  for  storage  of  data  concerning  the  creation  and 
modification  of  each  record.  Domain  PR0PAGATI0NS_F0RM  is  used  to  display 
input/output  forms  on  the  computer  terminal.  It  is  functionally  identical 
to  the  other  propagations  domains  but  contains  only  one  record. 

The  domain  definitions  for  all  of  the  current  failure 
information  propagations  domains  are  included  in  Appendix  A.  The 
corresponding  record  definition,  PROPAGATIONS_REC,  is  contained  in 
Appendix  B.  The  major  features  associated  with  this  record  are  summarized 
in  Table  10.  The  Datatrieve  file  definition  commands  for  all  of  the 
domains  are  included  in  Appendix  C.  The  key  fields  for  PR0PAGATI0NS_A150 
through  PR0PAGATI0NS.Z910  and  PR0PAGATI0NS_F0RM  are  given  in  Table  11. 


TABLE  10.  SUMMARY  OF  FI  PM  RECORD  PROPAGATIONS.REC 
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TABLE  10.  SUMMARY  OF  FIPM  RECORD  PROPAGATIONS.REC  (CONTINUED) 
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TABLE  11.  KEY  FIELDS  FOR  DOMAINS  PR0PAGATI0NS_A150 
THROUGH  PR0PAGATI0NS_Z910  AND 
PROPAGATIONS.FORM 


Field 

Key 

Type 

Dupl icate 
Values 

Change 

Values 

DATE.CREATED 

Primary 

Yes 

No 

FMCODE 

Alternate 

Yes 

Yes 

CODE_NUMBER 

Alternate 

Yes 

Yes 

SIGNAL.TYPE 

Alternate 

Yes 

Yes 

The  domain  and  file  definition  commands  for  PR0PAGATI0NS_A150 
through  PR0PAGATI0NS_Z910  differ  from  those  used  for  the  other  FI  PM 
domains.  The  domain  and  file  definition  commands  associated  with 
PR0PAGATI0NS_A150  are  shown  respectively  in  Figures  4 and  5.  The  domain 
definition  uses  the  Datatrieve  logicals  PROPAGATIONS  and  PROPAGATIONS_FILE 
while  the  file  definition  uses  the  logical  PROPAGATIONS.  This  process  was 
selected  to  allow  automated  definition  of  a failure  information 
propagation  domain  and  file  for  each  new  entry  in  domain  SYSTEMS. 


FN$CREATE_LOG(“PROPAGATIONS" , "PR0PAGATI0NS_A150") 
FN$CREATE_LOG("PROPAGATIONS_FILE" , 

" DEVS206 : [BCDSSME2 . DATA] PR0PAGATI0NS.A1 50 . DAT" ) 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS.REC  ON  PROPAGATIONS.FILE 


FIGURE  4.  DOMAIN  DEFINITION  COMMANDS  FOR  PR0PAGATI0NS_A150 
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FN$CREATE_L0G ( " PROPAGATIONS " , "PROPAGATIONSJVISO") 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP) , 

KEY  = FMCODE  (DUP), 
KEY  = CODE_NUMBER  (DUP), 
KEY  = SIGNAL.TYPE  (DUP) 


FIGURE  5.  FILE  DEFINITION  COMMANDS  FOR  PR0PAGATI0NS_A150 

Domains  REFERENCES  and  REFERENCES_FORM 

The  domain  REFERENCES  stores  information  on  the  various 
documents  used  during  the  formulation  of  the  FIPMs.  The  fields  in  this 
record  provide  for  the  input  of  standard  bibliographical  information  such 
as  author(s) , title,  company,  company  document  number,  data,  and  contract 
number.  Another  field  stores  a unique  reference  number  for  the  document 
which  is  assigned  by  the  Datatrieve  input  procedure.  Several  additional 
fields  also  are  defined  for  storage  of  pertinent  data  relative  to  the 
creation  and  modification  of  each  record.  Domain  REFERENCES_FORM  is  used 
to  display  input/output  forms  on  the  computer  terminal  during  data  entry 
and  modification.  It  is  functionally  identical  to  REFERENCES  but  contains 
only  one  record. 

The  domain  definitions  for  REFERENCES  and  REFERENCES_FORM  are 
included  in  Appendix  A.  The  corresponding  record  definition, 
REFERENCES_REC,  is  contained  in  Appendix  B.  The  major  features  associated 
with  this  record  are  summarized  in  Table  12.  The  Datatrieve  file 
definition  commands  for  both  of  these  domains  are  included  in  Appendix  C. 
The  key  fields  for  REFERENCES  and  REFERENCES.FORM  are  given  in  Table  13. 


TABLE  12.  SUMMARY  OF  FIPM  RECORD  REFERENCES.REC 
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TABLE  13.  KEY  FIELDS  FOR  DOMAINS  REFERENCES  AND  REFERENCES.FORM 


Field 

Key 

Type 

Duplicate 

Values 

DATE_CREATED 

Primary 

Yes 

REFERENCE_NUMBER 

Alternate 

Yes 

DOCUMENT.TITLE 

Alternate 

Yes 

DOCUMENT_SOURCE 

Alternate 

Yes 
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FI PM  DATA  BASE  SOFTWARE 


The  FIPM  data  base  development  software  provides  a controlled, 
interactive  environment  in  which  failure  information  propagation  data  can 
be  stored,  modified,  and  listed.  The  software  allows  the  user  to  perform 
a number  of  predefined  data  base  operations.  Direct  access  to  the  data 
base  is  restricted  to  prevent  inadvertent  changes  which  can  invalidate 
large  portions  of  the  data  files.  The  software  also  performs  an  extensive 
number  of  validation  tests  on  the  information  entered  by  the  user  during 
the  storage  and  modification  of  FIPM  records.  The  data  base  software  was 
developed  using  the  following  three  Digital  Equipment  Corporation  (DEC) 
software  packages: 

• VAX/VMS  Digital  Command  Language  (DCL) 

• Datatrieve 

• Terminal  Data  Management  System  (TDMS) . 

DCL  command  procedures  provide  the  overall  control  of  the  FIPM  software 
through  a series  of  four  menus.  VAX  command  files  containing  Datatrieve 
instructions  are  used  in  conjunction  with  the  menus  to  initiate  the 

storage,  modification,  or  listing  of  FIPM  information.  The  actual 
manipulation  of  the  FIPM  records  is  accomplished  using  Datatrieve 

procedures  and  tables.  Terminal  forms  created  using  TDMS  utilities 
provide  the  interactive  user  interface.  The  DCL,  Datatrieve,  and  TDMS 
software  elements  are  outlined  in  the  following  subsections. 

Digital  Command  Language  Procedures 

The  Digital  Command  Language  enables  the  user  to  instruct  the 
VAX/VMS  operating  system  to  perform  various  operations.  DCL  command 
procedures  are  files  which  contain  a series  of  DCL  commands.  When  a 
command  procedure  is  executed,  the  computer  processes  all  of  the  commands 

contained  in  the  file  and  then  returns  to  the  point  of  origin.  DCL 

command  procedures  are  used  in  the  FIPM  data  base  to  provide  the  top- 
level  control  of  the  software  elements. 
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When  a user  initiates  a VAX  computer  session,  the  operating 
system  searches  the  default  file  directory  for  a file  named  LOGIN.COM.  If 
the  file  is  found,  the  computer  executes  the  DCL  commands  in  LOGIN.COM 
before  performing  any  other  operations.  The  FIPM  data  base  development 
software  uses  this  intrinsic  VAX  process  to  direct  the  program  flow  into  a 
carefully  controlled  environment.  The  user  is  channeled  from  one 
procedure  to  the  next  without  going  to  the  DCL  command  level.  Provisions 
are  incorporated  for  users  with  special  access  privileges  to  bypass  these 
procedures  and  execute  commands  at  the  DCL  level. 

The  LOGIN.COM  file  created  for  the  FIPM  data  base  pauses  for  a 
response  from  the  terminal.  If  the  user  enters  the  correct  access  code, 
the  procedure  will  prompt  for  PASSWORD  1 and  then  PASSWORD  2.  The 
procedure  exits  to  the  DCL  command  level  if  the  access  code  and  both 
passwords  are  entered  correctly.  If  either  PASSWORD  1 or  PASSWORD  2 is 
not  valid,  the  procedure  loops  back  to  the  point  of  the  initial  pause. 
All  responses  except  for  the  correct  access  code  will  result  in  the 
computer  executing  the  DCL  procedure  FIPM_MENU.COM.  FIPM_MENU.COM 
displays  the  main  FIPM  menu  to  the  user.  This  menu  is  shown  in  Figure  6. 
The  program  flow  is  directed  to  either  FIPM_ST0RE.C0M,  FIPM_M0DIFY.C0M,  or 
FIPM_LIST.COM  depending  on  the  line  number  selected  (1,  2,  or  3 
respectively).  The  user  can  also  terminate  the  current  computer  session 
by  entering  line  number  4.  It  is  possible  to  exit  to  the  DCL  command 
level  from  the  main  menu  by  entering  the  correct  access  code  and 
passwords.  The  top-level  FIPM  software  flow  is  depicted  in  Figure  7. 
Listings  of  the  DCL  procedures  L0GIN.C0M  and  FIPM_MENU.COM  are  included  in 
Appendix  D. 
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FIGURE 
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================ 


FAILURE  INFORMATION  PROPAGATION  MODEL 


=============================================== 


MAIN  MENU 

1.  Store  FIPM  Data 

2.  Modify  FIPM  Data 

3.  List  FIPM  Data 

4.  Exit  Procedure  and  Logout 


Please  enter  LINE  NUMBER: 


6.  MENU  FOR  CONTROLLED  ACCESS  TO  FIPM  DATA  BASE 

LOGIN.COM 


FIGURE  7.  TOP-LEVEL  FIPM  SOFTWARE  FLOWS 
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If  the  user  selects  the  store  FIPM  data  option,  the  DCL 
procedure  FIPM_STORE.COM  is  called  to  display  the  menu  shown  in  Figure  8. 
A response  of  1 through  6 will  result  in  the  execution  of  the  Datatrieve 
command  file  STORE_REF.COM,  STORE_SYS.COM,  ST0RE_M0D.C0M,  ST0RE_FM.C0M, 
ST0RE_C0N.C0M,  or  ST0RE_FIP.C0M  respectively.  After  executing  the 
appropriate  Datatrieve  command  file,  the  procedure  FIPM_ST0RE.C0M 
redisplays  the  store  menu.  The  user  may  elect  to  continue  storing  data  in 
any  of  the  displayed  domains  or  may  return  to  the  main  menu  procedure  by 
selecting  line  number  7.  The  program  flow  for  storing  FIPM  data  is  shown 
in  Figure  9.  A listing  of  the  DCL  command  procedure  FIPM_ST0RE.C0M  is 
included  in  Appendix  D. 

If  the  user  selects  the  modify  FIPM  data  option,  the  DCL 
procedure  FIPM_M0DIFY.C0M  is  called  to  display  the  menu  shown  in  Figure 
10.  A response  of  1 through  5 will  result  in  the  execution  of  the 
Datatrieve  command  file  M0DIFY_REF.C0M,  M0DIFY_SYS.C0M,  M0DIFY_M0D.C0M, 
M0DIFY_FM.C0M,  or  M0DIFY_FIP.C0M  respectively.  The  records  in  domain 
CONNECTIONS  cannot  be  modified  from  this  menu.  After  executing  the 
appropriate  Datatrieve  command  file,  the  procedure  FIPM_M0DIFY.C0M 
redisplays  the  modify  menu.  The  user  may  elect  to  continue  modifying  data 
in  any  of  the  displayed  domains  or  may  return  to  the  main  menu  procedure 
by  selecting  line  number  6.  The  program  flow  for  modifying  FIPM  data  is 
shown  in  Figure  11.  A listing  of  the  DCL  command  procedure 
FIPM_M0DIFY.C0M  is  included  in  Appendix  D. 
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FAILURE  INFORMATION  PROPAGATION  MODEL 


STORE  MENU 

1.  Domain  REFERENCES 

2.  Domain  SYSTEMS 

3.  Domain  MODULES 

4.  Domain  FAILUREMODES 

5.  Domain  CONNECTIONS 

6.  Domain  PROPAGATIONS 

7.  Exit  to  MAIN  MENU 


Please  enter  LINE  NUMBER: 


FIGURE  8.  MENU  FOR  STORING  FIPM  DATA  BASE  RECORDS 


FIGURE  9.  PROGRAM  FLOW  FOR  STORING  FIPM  DATA 


FAILURE  INFORMATION  PROPAGATION  MODEL 


MODIFY  MENU 

1.  Domain  REFERENCES 

2.  Domain  SYSTEMS 

3.  Domain  MODULES 

4.  Domain  FAILUREMODES 

5.  Domain  PROPAGATIONS 

6.  Exit  to  MAIN  MENU 


Please  enter  LINE  NUMBER: 


FIGURE  10.  MENU  FOR  MODIFYING  FIPM  DATA  BASE  RECORDS 


FIGURE  11.  PROGRAM  FLOW  FOR  MODIFYING  FIPM  DATA 
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If  the  user  selects  the  list  FIPM  data  option,  the  DCL  procedure 
FIPM_LIST.COM  is  called  to  display  the  menu  shown  in  Figure  12.  A 
response  of  1 through  6 will  result  in  the  execution  of  the  Datatrieve 
command  file  LIST_REF_1.COM,  LIST_SYS_1.COM,  LIST_M0D_1.C0M, 
LIST_FM_1.COM,  LIST_C0N_1.C0M,  or  LIST_FIP_1.C0M  respectively.  After 
executing  the  appropriate  Datatrieve  command  file,  the  procedure 
FIPM_LIST.C0M  requests  a yes  or  no  response  to  list  the  records  in  the 
domain.  A response  of  yes  results  in  a batch  job  being  submitted  to 
generate  the  listing.  The  procedure  then  loops  back  to  the  list  menu.  A 
no  response  causes  the  immediate  redisplay  of  the  list  menu.  The  user  may 
elect  to  continue  listing  data  for  any  of  the  displayed  domains  or  may 
return  to  the  main  menu  by  selecting  line  number  7.  The  program  flow  for 
listing  FIPM  data  is  shown  in  Figure  13.  A listing  of  the  DCL  command 
procedure  FIPM_LIST.COM  is  included  in  Appendix  D. 


FAILURE  INFORMATION  PROPAGATION  MODEL 


LIST  MENU 

1.  Domain  REFERENCES 

2.  Domain  SYSTEMS 

3.  Domain  MODULES 

4.  Domain  FAILUREMODES 

5.  Domain  CONNECTIONS 

6.  Domain  PROPAGATIONS 

7.  Exit  to  MAIN  MENU 


Please  enter  LINE  NUMBER: 


FIGURE  12.  MENU  FOR  LISTING  FIPM  DATA  BASE  RECORDS 


FIPM_MENU.COM  (OCL) 
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Datatrieve  Command  Files,  Procedures,  and  Tables 

The  actual  storage,  modification,  and  listing  of  FIPM 
information  is  performed  using  Datatrieve  command  files  and  procedures. 
Datatrieve  command  files  are  VAX  system-level  files  which  contain  a series 
of  Datatrieve  commands  and  statements.  These  files  are  invoked  from 
inside  Datatrieve  to  perform  the  desired  operations.  Datatrieve 
procedures  also  contain  a series  of  Datatrieve  commands  and  statements. 
However,  these  procedures  are  stored  in  the  VAX  Common  Data  Dictionary 
(CDD) . The  CDD  is  used  by  Datatrieve  to  store  and  access  the  various 
elements  associated  with  the  data  base.  • 

The  Datatrieve  command  files  and  procedures  developed  for  the 
FIPM  data  base  use  Datatrieve  tables  to  validate  and  supplement 
information  being  entered.  An  example  of  a Datatrieve  table  is  shown  in 
Figure  14.  These  tables  are  used  to  validate  data  by  accepting  only 
values  which  are  in  the  table.  They  also  provide  additional  data  through 
translation  of  the  value  on  the  left-hand  side  of  the  colon  into  the  value 
on  the  right-hand  side.  This  latter  function  was  especially  useful  for 
creating  abbreviations  to  represent  key  FIPM  data.  The  overall  record 
size  was  reduced  by  storing  the  abbreviation  rather  than  the  entire  value. 


DEFINE  TABLE  REFERENCE_ABBREV_TABLE 
! 


AEROJET” 

"AJ" 

BATTELLE" 

"BA" 

MARTIN  MARIETTA" 

"MM" 

NASA  HDQ" 

"NH" 

NASA  MSFC" 

"NM" 

PRATT  & WHITNEY" 

"PW" 

ROCKETDYNE" 

"RD" 

END.TABLE 


FIGURE  14.  SAMPLE  DATATRIEVE  TABLE 
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The  Datatrieve  command  files,  procedures,  and  tables  used  to 
store  FIPM  information  are  shown  in  Figure  15.  The  command  files 
STORE_REF.COM,  STORE_SYS.COM,  STORE_MOD.COM,  STORE_FM.COM,  STORE_CON.COM, 
and  STORE_FIP.COM  are  executed  by  the  DCL  command  procedure  FIPM_STORE.COM 
(store  menu).  Each  of  these  Datatrieve  command  files  opens  a log  file  to 
document  the  records  being  stored  in  the  corresponding  domain,  prints  the 
current  date/time  to  the  log  file  and  then  invokes  the  appropriate 
Datatrieve  procedure(s) . After  completion  of  the  storage  activity,  the 
program  flow  is  returned  to  the  command  file  where  the  current  date/time 
is  again  printed  before  closing  the  log  file.  Execution  is  then  returned 
to  the  DCL  procedure  FIPM_STORE.COM  for  redisplay  of  the  store  menu.  The 
Datatrieve  command  files,  procedures,  and  tables  used  to  store  FIPM  data 
are  included  in  Appendixes  E,  F,  and  6 respectively. 

The  Datatrieve  command  files,  procedures,  and  tables  used  to 
modify  FIPM  information  are  shown  in  Figure  16.  The  command  files 
MODIFY_REF.COM,  MODIFY_SYS.COM,  MODIFY_MOD.COM,  MODIFY_FM.COM,  and 
MODIFY_FIP.COM  are  executed  by  the  DCL  command  procedure  FIPM_MODIFY.COM 
(modify  menu).  Each  of  these  Datatrieve  command  files  opens  a log  file  to 
document  the  records  being  modified  in  the  corresponding  domain,  prints 
the  current  date/time  to  the  log  file  and  then  invokes  the  appropriate 
Datatrieve  procedure(s) . After  completion  of  the  modification  activity, 
the  program  flow  is  returned  to  the  command  file  where  the  current 
date/time  is  again  printed  before  closing  the  log  file.  Execution  is  then 
returned  to  the  DCL  procedure  FIPM_MODIFY.COM  for  redisplay  of  the  modify 
menu.  The  Datatrieve  command  files,  procedures,  and  tables  used  to  modify 
FIPM  data  are  included  in  Appendixes  E,  F,  and  G respectively. 
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Command  Files: 

STORE_CON.COM 

STORE_FIP.COM 

STORE_FM.COM 

ST0RE_M0D.C0M 

STORE_REF.COM 

STORE_FIP.COM 


Procedures: 

BELL 

CLRSCRN 

C0N.ST0RE 

CREATE_PR0PAGATI0NS_FIP_1 

CREATE_PR0PAGATI0NS_FIP_2 

CREATE_PR0PAGATI0NS_SYS_1 

CREATE_PR0PAGATI0NS_SYS_2 

DTR_NULL 

FIP.STORE 

FIP_ST0RE_1 

FIP_ST0RE_2 

FM_ST0RE 

MOD.STORE 

REF.STORE 

SYS.STORE 


Tables: 


ACCOMPLI CE_REQU I RED_T ABLE 

CONNECTION_TABLE 

FAILURE_MODE_SUBMODE_TABLE 

FMEA_ITEM_NAME_TABLE 

FREQ_TIME_UNITS_TABLE 

MONTH.TABLE 

PARAMETER_TABLE 

REFERENCE_ABBREV_TABLE 

REFERENCE_SOURCE_TABLE 

SIGNAL.TABLE 


FIGURE  15.  DATATRIEVE  COMMAND  FILES,  PROCEDURES  AND 
TABLES  USED  TO  STORE  FI PM  DATA 
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Command  Files: 

MODIFY_FIP.COM 

MODIFY_FM.COM 

M0DIFY_M0D.C0M 

MODIFY_REF.COM 

MODIFY_SYS.COM 

Procedures: 

BELL 

CLRSCRN 

DTR_NULL 

FIP_MODIFY 

FIP_M0DIFY_1 

F1P_M0DIFY_2 

FIP_M0DIFY_3 

FIP_M0DIFY_4 

FM_M0DIFY 

FM_MODIFY_l 

M0D_M0DIFY 

M0D_M0DIFY_1 

REF_MODIFY 

REF_M0DIFY_1 

SYS_MODIFY 

SYS_M0DIFY_1 

SYS_M0DIFY_2 


Tables: 


FAILURE_MODE_SUBMODE_TABLE 

FMEA_ITEM_NAME_TABLE 

MONTH.TABLE 

NUMBER_TABLE 

PARAMETER_TABLE 

REFERENCE_SOURCE_TABLE 

SIGNAL_TABLE 

SIGN_TABLE 


FIGURE  16.  DATATRIEVE  COMMAND  FILES,  PROCEDURES  AND 
TABLES  USED  TO  MODIFY  FIPM  DATA 
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The  Datatrieve  command  files,  procedures,  and  tables  used  to 
list  FIPM  information  are  shown  in  Figure  17.  The  command  files 
LIST_REF_1.COM,  LIST_SYS_1.COM,  LIST_M0D_1.C0M,  LIST_FM_1.COM, 
LIST_C0N_1.C0M,  and  LIST_FIP_1.COM  are  executed  by  the  DCL  command 
procedure  FIPM_LIST.COM  (list  menu).  Each  of  these  Datatrieve  command 
files  counts  the  number  of  records  in  the  corresponding  domain  and 
calculates  the  number  of  pages  in  the  list  file.  This  information  is 
printed  to  the  screen  and  program  execution  returns  to  FIPM_LIST.COM.  If 
an  actual  listing  is  desired,  the  appropriate  Datatrieve  command  file 
LIST_REF_2.COM,  LIST_SYS_2.COM,  LIST_MOD_2.COM,  LIST_FM_2.COM, 
LIST_CON_2.COM,  or  LIST_FIP_2.COM  is  submitted  as  a batch  job  to  generate 
the  list  file.  Execution  of  the  DCL  procedure  FIPM_LIST.COM  then 
continues  with  redisplay  of  the  list  menu.  The  Datatrieve  command  files, 
procedures,  and  tables  used  to  list  FIPM  data  are  included  in  Appendixes 
E,  F,  and  G respectively. 

A number  of  Datatrieve  procedures  were  used  during  the  FIPM  data 
base  software  development  to  simplify  certain  functions.  As  examples,  the 
procedure  CREATE_CONNECTIONS  executes  the  file  definition  command  for 
domain  CONNECTIONS  and  the  procedure  S132  sets  the  terminal  screen  width 
to  132  characters.  In  addition  to  these  procedures,  the  Datatrieve  table 
FMEA_ITEM_PART_NO_TABLE  was  created  to  provide  the  Rocketdyne  part  numbers 
(Reference  3,  Table  2-1)  associated  with  specific  FMEA  items.  These 
procedures  and  table  are  shown  in  Figure  18.  Listings  for  the  procedures 
are  included  in  Appendix  F and  the  table  is  included  in  Appendix  G. 
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Command  Files: 

LIST_C0N_1.C0M 

LIST_CON_2.COM 

LIST_FIP_1.COM 

LIST_FIP_2.COM 

LIST_FM_1.COM 

LIST_FM_2.COM 

LIST_MOD_l.COM 

LIST_MOD_2.COM 

LIST_REF_1.COM 

LIST_REF_2.COM 

LIST_SYS_1.COM 

LIST_SYS_2.COM 

Procedures: 

CLRSCRN 
DTR_NULL 
FIP_C0UNT 
FIP  C0UNT_1 
FIP~C0UNT_2 
FIP_LIST_1 
FIPLIST  2 
FIP_LIST_3 
FIP  LIST  4 


FIGURE  17.  DATATRIEVE  COMMAND  FILES  AND  PROCEDURES 
USED  TO  LIST  FI  PM  DATA 


Procedures: 

CREATE  CONNECTIONS 

CREATE_CONNECTIONS_FORM 

CREATE_FAI LUREMODES 

CREATE  FAILUREMODES_FORM 

CREATE_MODULES 

CREATE_MODULES_FORM 

CREATE_PROPAGATIONS 

CREATE  PROPAGATIONS_FORM 

CREATE_REFERENCES 

CREATE_REFERENCES_FORM 

CREATE_SYSTEMS 

CREATE_SYSTEMS_FORM 

FIPLOGICALC 

FIPLOGICALD 

HDR 

PRNTOFF 

PRNTON 

S132 

S80 


Tables: 


FMEA_ITEM_PART_NO_TABLE 


FIGURE  18.  MISCELLANEOUS  DATATRIEVE  PROCEDURES  AND 
TABLES  USED  FOR  FIPM 
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Terminal  Data  Management  System  Forms 

Two  TDMS  utilities  were  used  to  create  and  compile  terminal 
forms  for  use  with  the  FIPM  data  base.  These  forms  provide  the 

interactive  interface  between  the  data  base  user  and  the  underlying 
software.  The  specific  utilities  used  were  the  Form  Definition  Utility 
(FDU)  and  the  Request  Definition  Utility  (RDU).  FDU  was  used  to  create 
the  screen  image,  define  the  video  features,  assign  attributes  to  the 
various  input  fields,  establish  the  field  access  order,  and  save  the 
completed  form  in  the  Common  Data  Dictionary  (CDD).  The  FIPM  form 
definitions  are  included  in  Appendix  H.  The  RDU  was  used  to  create  a 
request  library  which  identifies  all  of  the  FIPM  forms.  The  VAX  computer 
file  associated  with  the  compiled  forms  is  also  specified  in  the  request 
library  definition.  Finally,  RDU  is  used  to  build  (compile)  the  request 
library  and  create  the  library  file  identified  in  the  definition.  The 
FIPM  request  library  definition  is  shown  in  Figure  19. 


FORM  IS  C0NNECTI0NS_ST0_F0RM; 

FORM  IS  FAILUREM0DES_FIN1_F0RM; 

FORM  IS  FAILUREM0DES_FIN2_F0RM; 

FORM  IS  FAILUREM0DES_M0D1_F0RM; 

FORM  IS  FAILUREM0DES_M0D2_F0RM; 

FORM  IS  FAILUREM0DES_ST01_F0RM; 

FORM  IS  FAILUREM0DES_ST02_F0RM; 

FORM  IS  MODULES_FIN_FORM; 

FORM  IS  M0DULES_M0D_F0RM; 

FORM  IS  M0DULES_ST0_F0RM; 

FORM  IS  PROPAGATIONS_FIN_FORM; 

FORM  IS  PR0PAGATI0NS_M0D_F0RM; 

FORM  IS  PR0PAGATI0NS_ST0_F0RM; 

FORM  IS  REFERENCES_FIN_FORM; 

FORM  IS  REFERENCES_MOD_FORM; 

FORM  IS  REFERENCES_STO_FORM; 

FORM  IS  SYSTEMS_FIN_FORM; 

FORM  IS  SYSTEMS_MOD_FORM; 

FORM  IS  SYSTEMS_STO_FORM; 

FILE  IS  " DEV$206 : [BCDSSME2 . FORMS] FORMSLIB . RLB" ; 
END  DEFINITION; 


FIGURE  19.  FIPM  REQUEST  LIBRARY  DEFINITION 
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FIPM  DATA  BASE  TRANSFER 


A magnetic  tape  containing  the  FIPM  data  base  development 
software  and  the  high-pressure  oxidizer  turbopump  (HPOTP)  data  files  was 
mailed  to  the  NASA  Marshall  Space  Flight  Center  in  February  1987.  This 
tape  was  written  using  the  VAX/VMS  Backup  Utility  and  contained  multiple 
copies  of  60  files.  These  files  are  shown  in  Figure  20.  The  file 
ACTIVATE.COM  was  a DCL  command  procedure  developed  to  load  and  organize 
all  of  the  required  FIPM  structure  into  a newly  established  VAX  username. 
The  19  files  of  the  type  *.DAT  are  the  data  files  associated  with  the 
HPOTP  FIPM.  The  28  files  of  the  types  FIPM_*.C0M,  LIST_*.C0M,  LOGIN.COM, 
MODI FY_*. COM,  and  ST0RE_*.C0M  are  the  DCL  command  procedures  and 
Datatrieve  command  files  discussed  in  the  previous  section.  The  three 
files  of  the  type  CDD_F0RMS_* . BAK  contain  the  compiled  form  definitions  as 
extracted  from  the  CDD.  The  nine  files  of  the  type  DTR_*.C0M  contain  the 
Datatrieve  domain,  record,  procedure,  and  table  definitions. 


ACTIVATE.COM 

CDD_F0RMS_3 . BAK 

DTR_DOMAINS.COM 

DTR_PROCS_3.COM 

DTR_PROCS_6.COM 

FAILUREMODES.DAT 

FIPM_MENU.COM 

LIST_C0N_1.C0M 

LIST_FIP_2.C0M 

LIST_M0D_1.C0M 

LIST_REF_2.C0M 

LOGIN.COM 

MODIFY_MOD.COM 

MODULES.DAT 

PR0PAGATI0NS_A200.DAT 

PR0PAGATI0NS_B400.DAT 

PROPAGATIONS_FORM.DAT 

REFERENCES_FORM.DAT 

STORE_FM.COM 

STORE_SYS.COM 


CDD_F0RMS_1 . BAK 

CONNECTIONS.DAT 

DTR_PR0CS_1.C0M 

DTR_PROCS_4.COM 

DTR_RECORDS.COM 

FAILUREMODES_FORM.DAT 

FIPM_MODIFY.COM 

LIST_CON_2.COM 

LIST_FM_1.COM 

LIST_MOD_2.COM 

LIST_SYS_1.COM 

MODIFY_FIP.COM 

MODIFY_REF.COM 

MODULES_FORM.DAT 

PR0PAGATI0NS_A600.DAT 

PR0PAGATI0NS_B800.DAT 

PR0PAGATI0NS_Z910.DAT 

STORE_CON.COM 

STORE_MOD.COM 

SYSTEMS.DAT 

Total  of  60  files. 


CD0_F0RMS_2 . BAK 

C0NNECTI0NS_F0RM.DAT 

DTR_PROCS_2.COM 

DTR_PROCS_5.COM 

DTR_TABLES.COM 

FIPM_LIST.COM 

FIPM_STORE.COM 

LIST_FIP_1.COM 

LIST_FM_2.COM 

LIST_REF_1.COM 

LIST_SYS_2.COM 

MODIFY_FM.COM 

MODIFY_SYS.COM 

PR0PAGATI0NS_A150.DAT 

PR0PAGATI0NS_A700.DAT 

PR0PAGATI0NS_C200.DAT 

REFERENCES.DAT 

STORE_FIP.COM 

STORE_REF.COM 

SYSTEMS_FORM.DAT 


FIGURE  20.  VAX/VMS  FILES  USED  TO  TRANSFER  FIPM  DATA  BASE 
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The  procedure  ACTIVATE.COM  created  the  necessary  VAX/VMS 
directory  structure,  created  a Datatrieve  dictionary,  loaded  all  of  the 
Datatrieve  elements  (domains,  records,  procedures,  and  tables),  defined  a 
TDMS  request  library  and  built  the  TDMS  request  library  file.  A listing 
of  the  file  ACTIVATE.COM  is  included  in  Appendix  D.  The  resulting  VAX 
directory  structure  is  shown  in  Figure  21.  The  top-level  directory, 
[BCDSSME2] , contains  the  other  directory  files,  the  Datatrieve  dictionary 
file,  and  two  DCL  command  procedures.  The  files  contained  in  this 
directory  are  shown  in  Figure  22.  The  directory  [BCDSSME2.DATA]  contains 
the  FIPM  data  files  as  shown  in  Figure  23.  The  directory  [BCDSSME2.DTR] 
is  used  as  a holding  area  for  the  command  files  containing  the  Datatrieve 
domain,  record,  procedure,  and  table  definitions.  The  files  in  this 
directory  are  shown  in  Figure  24.  The  directory  [BCDSSME2.FIPM]  contains 
the  DCL  command  procedures  and  Datatrieve  command  files  which  display  the 
FIPM  menus  and  interact  with  the  data  base.  These  files  are  shown  in 
Figure  25.  The  directory  [BCDSSME2. FORMS]  contains  the  compiled  form 
definition  files  and  the  request  library  file  as  shown  in  Figure  26.  The 
directories  [BCDSSME2. LISTS] , [BCDSSME2.L0GS] , and  [BCDSSME2.MISC]  are 
initially  empty.  Any  FIPM  listing  files  generated  by  the  FIPM  software 
will  be  written  to  the  [BCDSSME2. LISTS]  directory.  The  log  files  which 
are  created  as  FIPM  records  are  stored  or  modified  are  written  to  the 
directory  [BCDSSME2.L0GS] . The  final  directory,  [BCDSSME2.MISC] , was 
included  for  miscellaneous  files  which  may  be  created  by  the  user. 
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Level  1 


Level  2 


Level  2 


Level  2 


Level  2 


Level  2 


Level  2 


Level  2 


FIGURE  21.  FI PM  DIRECTORY  STRUCTURE 
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ACTIVATE.COM 
DATA. DIR 
DTR.DIR 
FI PM .DIR 
FORMS. DIR 
LISTS. DIR 
LOGIN.COM 
LOGS. DIR 
MISC .DIR 
SSME.DIC 


Total  of  10  files. 


FIGURE  22.  DIRECTORY  DEV$206: [BCDSSME2] 


CONNECTIONS.DAT 

CONNECTIONS_FORM.DAT 

FAILUREMODES.DAT 

FAILUREMODES_FORM.DAT 

MODULES.DAT 

MODULES_FORM.DAT 

PR0PAGATI0NS_A150.DAT 

PR0PAGATI0NS_A200.DAT 

PR0PAGATIONS_A600.DAT 

PR0PAGATI0NS_A700.DAT 

PR0PAGATI0NS_B400.DAT 

PR0PAGATI0NS_B800.DAT 

PR0PAGATI0NS_C200.DAT 

PROPAGATIONS_FORM.DAT 

PR0PAGATI0NS_Z910.DAT 

REFERENCES.DAT 

REFERENCES_FORM.DAT 

SYSTEMS.DAT 

SYSTEMS_FORM.DAT 


Total  of  19  files. 


FIGURE  23.  DIRECTORY  DEV$206: [BCDSSME2.DATA] 
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DTR_DOMAINS.COM 

DTR_PR0CS_1.C0M 

DTR_PROCS_2.COM 

DTR_PR0CS_3.C0M 

DTR_PROCS_4.COM 

DTR_PR0CS_5.C0M 

DTR_PROCS_6.COM 

DTR_RECORDS.COM 

DTR_TABLES.COM 

Total  of  9 files. 


FIGURE  24.  DIRECTORY  DEV$206 : [BCDSSME2 . DTR] 


FIPM_LIST.COM 

FIPM_MODIFY.COM 

LIST_C0N_1.C0M 

LIST_FIP_1.COM 

LIST_FM_1.COM 

LIST_M0D_1.C0M 

LIST_REF_1.COM 

LIST_SYS_1.COM 

MODIFY_FIP.COM 

MODIFY_MOD.COM 

MODIFY_SYS.COM 

STORE_FIP.COM 

STORE_MOD.COM 

STORE_SYS.COM 


FIPM_MENU.COM 

FIPM_STORE.COM 

LIST_CON_2.COM 

LIST_FIP_2.COM 

LIST_FM_2.COM 

LIST_MOD_2.COM 

LIST_REF_2.COM 

LIST_SYS_2.COM 

MODIFY_FM.COM 

MODIFY_REF.COM 

STORE_CON.COM 

STORE_FM.COM 

STORE_REF.COM 


Total  of  27  files. 


FIGURE  25.  DIRECTORY  DEV$206: [BCDSSME2.FIPM] 


CDD_F0RMS_1 . BAK 
CDD_F0RMS_2 . BAK 
CDD_F0RMS_3 . BAK 
FORMSLIB.RLB 

Total  of  4 files. 


FIGURE  26 


DIRECTORY  DEV$206 : [BCDSSME2 . FORMS] 


I 

I 

I 
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APPENDIXES 


APPENDIX  A 


FI PM  DOMAIN  DEFINITIONS 


A-l 

Domain  Definition  Page 


CONNECTIONS  A-3 

C0NNECTI0NS_F0RM  A-4 

FAILUREMODES  A-5 

FAILUREMODES.FORM  A-6 

MODULES  A-7 

MODULES.FORM  A-8 

PR0PAGATI0NS_A150  A-9 

PR0PAGATI0NS_A200  A- 10 

PROPAGAT I 0NS_A600  A-ll 

PROPAGATIONS_A700  A- 12 

PROPAGAT I0NS.B400  A- 13 

PROPAGAT I 0NS_B800  A- 14 

PROPAGAT I 0NS.C200  A- 15 

PROPAGAT I 0NS_F0RM  A-16 

PR0PAGATI0NS_Z910  A-17 

REFERENCES A-18 

REFERENCES_FORM  A- 19 

SYSTEMS  A-20 

SYSTEMS.FORM  A-21 


A-2 


I 


(This  page  intentionally  blank) 


Datatrieve  Domain  CONNECTIONS 


DEFINE  DOMAIN  CONNECTIONS  USING  CONNECT I ONS_REC  ON  0001 

DEVS206: [ BCDSSME2 . DAT A ] CONNECTIONS . DAT  0002 


A- 4 

Datatrieve  Domain  C0NNECTI0NS_F0RM 

DEFINE  DOMAIN  CONNECT IONS_FORM  USING  CONNECTIONS_REC  ON 
DEVS206 : [ BCDSSME2 . DATA] CONNECTIONS_FORM . DAT 


0004 

0005 

0006 


I 

I 

I 


I 


A-5 


Datatrieve  Domain  FAILUREMODES 


DEFINE  DOMAIN  FAILUREMODES  USING  FAILUREMODES_REC  ON  0007 
DEVS206: [BCDSSME2.DATA3FAILUREMODES.DAT  oooe 
; 0009 


A-6 


Datatrieve  Domain  FAILUREMODES_FORM 


DEFINE  DOMAIN  FAILUREMODES_FORM  USING  FAILUREMODES_REC  ON  0010 
DEVS206: [BCDSSME2.DATAIFAILUREM0DES_F0RM.DAT  001 1 
; 0012 


A- 7 


Datatrieve  Domain  MODULES 


DEFINE  DOMAIN  MODULES  USING  MODULESREC  ON  0013 
DEVS206 : [ BCDSSME2 . DATA] MODULES . DAT  0014 
; 0015 


A-8 


Datatrieve  Domain  M0DULES_F0RM 


DEFINE  DOMAIN  M0DULES_F0RM  USING  MODULESJEC  ON  0016 
DEVS206: [BCDSSME2.DATAlMODULES_FORM.DAT  0017 
; 0018 


A-9 


Datatrieve  Domain  PROPAGATIONS_A150 


FN$DELETE_LOG( "PROPAGATIONS" ) 0019 

FN$DELETE_LOG("PROPAGATIONS_FILE")  0020 

FN$CREATE_LOG( "PROPAGATIONS",  "PR0PAGATI0NS_A150")  0021 

FN$CREATE_LOG( " PR0PAGATI0NS_F I LE " , 0022 

"DEVS206: [BCDSSME2.DATA1PROPAGATIONS_A150.DAT")  0023 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGAT IONS_F I LE  0024 

; 0025 


A-10 


Datatrieve  Domain  PROPAGATIONS_A2QO 


FN$DELETE_LOG( "PROPAGATIONS" ) 0026 

FN$DELETE_LOG( " PR0PAGATI0NS_F I LE " ) 0027 

FN$CREATE_LOG( "PROPAGATIONS",  "PR0PAGATI0NS_A200")  0028 

F N$  C RE  ATE_LOG  ( " P ROP  AGAT I ONSF I L E ",  0029 

"DEVS206: [BCDSSME2.DATAlPROPAGATI0NS_A200.DAT")  0030 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGATIONS_FILE  0031 

0032 

9 


A-ll 


Datatrieve  Domain  PR0PAGATI0N$_A600 


FN$DELETE_LOG( "PROPAGATIONS")  0033 

FNSDELETE  LOG("PROPAGATIONS_FILE")  0034 

FN$CREATE~LOG( "PROPAGATIONS" , "PROPAGATIONS_A600")  0035 

FN$CREATE_LOG( "PROPAGATIONS_FILE" , 0036 

"DEV$206: [BCDSSME2.DATA1PROPAGATIONS_A600.DAT")  0037 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONSJEC  ON  PROPAGATIONS_FILE  0038 

; 0039 


A-12 


Datatrieve  Domain  PROPAGATIONS_A700 


FN$DELETE_LOG( "PROPAGATIONS")  0040 

FN$DELETE_LOG ( " PROP AG AT 1 0NS_F I LE " ) ooa  i 

FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS_A700")  0042 

FN$CREATE_LOG ( " PROPAGATIONS_F I LE " , 0043 

"DEVS206: [BCDSSME2.DATA1PR0PAGATI0NS_A700.DAT")  0044 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGAT IONS_F I LE  0045 

; 0046 


A-13 


Datatrieve  Domain  PROPAGATIONS_B4QO 


FN$DELETE_LOG( "PROPAGATIONS" ) 0047 

FNSDELETE_LOG( "PROPAGATIONS_FILE")  0048 

FN$CREATE_LOG( "PROPAGATIONS" , "PROPAGATIONS  B400")  0049 

FN$CREATE_LOG ( " PROPAGATIONS_F ILE",  ooso 

"DEV$206: [BCDSSME2.DATAjPROPAGATIONS_B400.DAT")  0051 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGATIONS_FILE  0052 

5 0053 


A- 14 


Datatrieve  Domain  PR0PAGATI0NS_B800 


FN$DELETE_LOG( "PROPAGATIONS" ) oos* 

FN$DELETE_LOG( "PROPAGATIONS  FILE" ) 0055 

FN$CREATE_LOG( "PROPAGATIONS" , "PROPAGATIONS_B800" ) oose 

FNJCREATE  LOG( "PROPAGATIONS  FILE" , 0057 

"DEVJ206: [BCDSSME2.DATAJPROPAGATIONS_B800.DAT")  oose 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  P ROP AGAT I ONS_F I L E 0059 

; 0060 


A-15 


Datatrieve  Domain  PROPAGATIONS_C200 


FNSDELETE  L0G( "PROPAGATIONS")  ooei 

FN$DELETE_LOG( "PROPAGATIONS_FILE" ) 0062 

FN$CREATE_LOG( "PROPAGATIONS" , "PROPAGATIONS_C200")  ooes 

FNSCREATE_LOG( " P ROP AGAT I ONS_F I LE " , 0064 

"DEV$206: [BCDSSME2.DATA3PROPAGATI0NS_C200.DAT")  0065 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONSJEC  ON  PROPAGATIONSJILE  ooee 

; 0067 


A-16 


Datatrieve  Domain  PROPAGATIONS  FORM 


DEFINE  DOMAIN  PROPAGATIONSJORM  USING  PROPAGATIONS_REC  ON 
DEVS206: [BCDSSME2. DATA] PROPAGATIONS  FORM.DAT 


0068 

0069 

0070 


A-17 


Datatrieve  Domain  PROPAGATIONS_Z910 


FN$DELETE_LOG( "PROPAGATIONS" ) 007 i 

FN$DELETE_LOG( " P ROPAGAT 1 0NS_F  I LE 11 ) 0072 

FN$CREATE_LOG(  "PROPAGATIONS" , ,,PROPAGATIONS_Z910")  0073 

FN$CREATE_LOG( " P ROPAGAT I ONS_F I L E " , 0074 

" DEVS206 : [ BCDSSME2 . DATA] PROPAGATI0NS_Z910 . DAT” ) 0075 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGAT I ONS_F I LE  0076 

; 0077 


A- 18 


Datatrieve  Domain  REFERENCES 


DEFINE  DOMAIN  REFERENCES  USING  REFERENCES_REC  ON  0078 
DEVS206 : [ BCDSSME2 . DATA] REFERENCES . DAT  0079 
; 0080 


A-19 


Datatrieve  Domain  REFERENCES_FORM 


DEFINE  DOMAIN  REFERENCES_FORM  USING  REFERENCESJEC  ON  oosi 

DEVS206: [BCDSSME2.DATAIREFERENCES_F0RM.DAT  0082 

0083 


9 


A-20 


Datatrieve  Domain  SYSTEMS 


DEFINE  DOMAIN  SYSTEMS  USING  SYSTEMS_REC  ON 
DEVS206 : [ BCDSSME2 . DATA] SYSTEMS . DAT 


0084 

0085 

0086 


A-21 


Datatrieve  Domain  SYSTEMS_FORM 


DEFINE  DOMAIN  SYSTEMS_FORM  USING  SYSTEMS_REC  ON 
DEVS206 : [ BCDSSME2 . DATA ] SYSTEMS_FORM . DAT 


0087 

0088 
0089 


A-22 
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APPENDIX  B 


FIPM  RECORD  DEFINITIONS 


B-l 

Record  Definition  Page 

CONNECTIONS_REC  B-3 

FAILUREMODES.REC  B-5 

MODULES.REC  B-7 

PROPAGATIONS_REC  B-9 

REFERENCES.REC  B-13 

SYSTEMS_REC  B-15 
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Datatrieve  Record  CONNECTIONS  REC 


B-3 


DEFINE  RECORD 

CONNECT I ONSJEC  USING 

0001 

J 

0002 

J 

0003 

01 

CONNECT  I ONSJEC. 

0004 

1 

0005 

05 

DATE  CREATED 

USAGE 

IS 

DATE 

0006 

QUERY  NAME 

IS 

DCREATED 

0007 

EDIT_STRING 

IS 

X(23) . 

0008 

I 

0009 

05 

CODE  NUMBER 

PICTURE 

IS 

X(21) 

0010 

QUERYJAME 

IS 

CODENO. 

001  1 

J 

0012 

05 

CODE  NUMBER  PARTS  REDEFINES 

0013 

CODE_NUMBER. 

0014 

f 

0015 

10 

SYSTEM_MODULE_A 

PICTURE 

IS 

X(8) 

0016 

QUERYJAME 

IS 

SYSMODA. 

0017 

J 

0018 

10 

SYSTEM  MODULE  A PARTS  REDEFINES 

0019 

SYSTEM_MODULE_A. 

0020 

I 

0021 

15  SYSTEM_A 

PICTURE 

IS 

X(4) 

0022 

QUERYJAME 

IS 

SYSA. 

0023 

J 

0024 

15  MODULE_A 

PICTURE 

IS 

9(4) 

0025 

QUERYJAME 

IS 

MODA. 

0026 

I 

0027 

10 

CONNECTION 

PICTURE 

IS 

X(4) 

0028 

QUERYJAME 

IS 

CN. 

0029 

J 

0030 

10 

CONNECTION  PARTS  REDEFINES 

0031 

CONNECTION. 

0032 

J 

0033 

15  CONNECT ION_TYPE 

PICTURE 

IS 

X(2) 

0034 

QUERYJAME 

IS 

CNTYPE. 

0035 

J 

0036 

15  CONNECT I ON_QUAL I F I ER 

PICTURE 

IS 

X(2) 

0037 

QUERYJAME 

IS 

CNQUAL. 

0038 

1 

0039 

10 

UNANT I C I PATED_CONNECTION 

PICTURE 

IS 

X(l) 

0040 

QUERYJAME 

IS 

UA. 

0041 

1 

0042 

10 

SYSTEM_MODULE_B 

PICTURE 

IS 

X(8) 

0043 

QUERYJAME 

IS 

SYSMODB. 

0044 

1 

0045 

10 

SYSTEM  MODULE  B PARTS  REDEFINES 

0046 

SYSTEM_MODULE_B. 

0047 

1 

0048 

15  SYSTEMJ 

PICTURE 

IS 

X(4) 

0049 

QUERYJAME 

IS 

SYSB. 

0050 
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B-4 


Datatrieve  Record  CONNECTIONS_REC  (cont.) 


15  MODULEJ 

PICTURE 

IS 

9(4) 

0052 

QUERY_NAME 

IS 

MODB. 

0053 

J 

0054 

05 

D ATE_LAST_MOD I F I ED 

USAGE 

IS 

DATE 

0055 

QUERY  NAME 

IS 

DLASTMOD 

0056 

EDIT_STRING 

IS 

X(23). 

0057 

i 

0058 

05 

MOD I F Y I NG_PR0CEDURE 

PICTURE 

IS 

X(20) 

0059 

QUERY_NAME 

IS 

MODPROC. 

0060 

! 

0061 

05 

FILLER 

PICTURE 

IS 

X(20). 

0062 

i 

0063 

. 

0064 

B-5 


Datatrieve  Record  FAILUREMODES_REC 


DEFINE  RECORD  FAILUREMODES_REC  USING 

0065 

» 

0066 

J 

0067 

01  FAILUREMODES_REC. 

0068 

J 

0069 

05 

DATE  CREATED 

USAGE 

IS  DATE 

0070 

QUERY  NAME 

IS  DCREATED 

0071 

EDIT_STRING 

IS  X(23). 

0072 

| 

0073 

05 

FMCODE 

PICTURE 

IS  X(20) . 

0074 

J 

0075 

05 

FMCODE  PARTS  REDEFINES 

0076 

FMCODE. 

0077 

I 

0078 

10  SOURCE  SYSTEM  MODULE 

PICTURE 

IS  X(8) 

0079 

QUERY_NAME 

IS  SSYSMOD. 

0080 

J 

0081 

10  SOURCE  SYSTEM  MODULE  PARTS 

REDEFINES 

0082 

SOURCE_SYSTEM_MODULE . 

• 

0083 

J 

0084 

15  SOURCE  SYSTEM 

PICTURE 

IS  X(4) 

0085 

QUERY_NAM£ 

IS  SSYS. 

0086 

1 

0087 

15  SOURCE  MODULE 

PICTURE 

IS  9(4) 

0088 

QUERY_NAME 

IS  SMOD. 

0089 

| 

0090 

10  FAILURE  MODE  SUBMODE 

PICTURE 

IS  X(4) 

0091 

QUERY_NAME 

IS  FMSUBM. 

0092 

t 

0093 

10  FAILURE  MODE  SUBMODE  PARTS 

REDEFINES 

0094 

FAILURE_MODE_SUBMODE7 

0095 

1 

0096 

15  FAILURE_MODE 

PICTURE 

IS  X(2) 

0097 

QUERYJAME 

IS  FM. 

0098 

J 

0099 

15  FAILURE_SUBMODE 

PICTURE 

IS  X(2) 

0100 

QUERYJAME 

IS  FSUBM. 

0101 

0102 

10  ACCOMPLICEJYSTEMJODULE 

PICTURE 

IS  X( 8) 

0103 

QUERYJAME 

IS  ACCSYSMOD. 

0104 

1 

0105 

10  ACCOMPLICE  SYSTEM  MODULE  PARTS  REDEFINES 

0106 

ACCOMPLICE_SYSTEM_MODULE. 

0107 

J 

0108 

15  ACCOMPLICE  SYSTEM 

PICTURE 

IS  X(4) 

0109 

QUERYJAME 

IS  ACCSYS. 

01 10 

J 

01  1 1 

15  ACCOMPLICE  MODULE 

PICTURE 

IS  9(4) 

0112 

QUERYJAME 

IS  ACCMOD. 

0113 

J 

01 14 

05 

DESCRIPTION 

PICTURE 

IS  X(242) 

0115 

B-6 


Datatrieve  Record  FAILUREMODES_REC  (cont.) 


05  EFFECTS. 

10  EFFECT1 

10  EFFECT2 

10  EFFECT3 

10  EFFECT4 

10  EFFECT5 

10  EFFECT6 

05  DATE_LAST_M0D I F I ED 
05  MODIFYING_PROCEDURE 


QUERY_NAME  IS  DESC 
EDIT_STRING  IS  T(80). 


PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

PICTURE  IS  X( 161 ) 
EDIT_STRING  IS  T(80). 

USAGE  IS  DATE 

QUERY_NAME  IS  DLASTMOD 
EDIT_STRING  IS  X(23). 

PICTURE  IS  X( 20) 
QUERY_NAME  IS  MODPROC. 

IS  X(100). 


0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 


05  FILLER 


PICTURE 


I 

I 


Datatrieve  Record  MODULES  REC 


B-7 


DEFINE  RECORD  MODULES JEC  USING 


01 

I 


} 


j 


) 


I 


j 


j 


j 


i 


j 


MODULES_REC. 

05  DATE_CREATED  USAGE  IS  DATE 

QUERYJAME  IS  DCREATED 

EDIT_STRING  IS  X(23). 

05  SYSTEM_MODULE  PICTURE  IS  X(8) 

QUERY_NAME  IS  SYSMOD. 

05  SYSTEM  MODULE  PARTS  REDEFINES 


SYSTEM_MQDULE. 

10  SYSTEM 

10  MODULE 

05  SYSTEM_MODULE_NAME 
05  SYSTEM  J10DULE_FUNCTI0N 

05  D ATE_LAST_MOD  I F I ED 

05  MOD I F Y I NG_PROCEDURE 
05  FILLER 


PICTURE  IS  X(4) 
QUERY_NAME  IS  SYS. 

PICTURE  IS  9(4) 
QUERY_NAME  IS  MOD. 

PICTURE  IS  X( 80) 
QUERYJJAME  IS  SYSMODNAME. 

PICTURE  IS  X(242) 

QUERY JAME  IS  SYSMODFUNC 
EDIT_STRING  IS  T(80). 

USAGE  IS  DATE 

QUERYJJAME  IS  DLASTMOD 
EDIT_STRING  IS  X(23). 

PICTURE  IS  X( 20) 

QUERY JIAME  IS  MODPROC. 

PICTURE  IS  X( 40) . 


0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 


B-8 
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B-9 


Datatrieve  Record  PROPAGATIONS_REC 


DEFINE  RECORD 

PROPAGATIONS_REC  USING 

0187 

0188 

0189 

01 

PROPAGATIONS_REC. 

0190 

0191 

05 

DATE  CREATED 

USAGE 

IS 

DATE 

0192 

QUERY  NAME 

IS 

DCREATED 

0193 

EDIT_STRING 

IS 

X(23) . 

0194 

0195 

05 

FMCODE 

PICTURE 

IS 

X(20) . 

0196 

0197 

05 

FMCODE  PARTS  REDEFINES 

0198 

FMCODE. 

0199 

0200 

10 

SOURCE_SYSTEM_MODULE 

PICTURE 

IS 

X(8) 

0201 

QUERY_NAME 

IS 

SSYSMOD. 

0202 

0203 

10 

SOURCE  SYSTEM  MODULE  PARTS 

REDEFINES 

0204 

SOURCE_SYSTEM_MODULE . 

0205 

0206 

15  SOURCE_SYSTEM 

PICTURE 

IS 

X(4) 

0207 

QUERY_NAME 

IS 

SSYS. 

0208 

0209 

15  S0URCE_M0DULE 

PICTURE 

IS 

9(4) 

0210 

QUERY_NAME 

IS 

SMOD. 

0211 

0212 

10 

FAI LURE_MODE_SUBMODE 

PICTURE 

IS 

X(4) 

0213 

QUERY_NAME 

IS 

FMSUBM. 

0214 

0215 

10 

FAILURE  MODE  SUBMODE  PARTS 

REDEFINES 

0216 

FAILURE_MODE_SUBMODE. 

0217 

0218 

15  FAILURE_MODE 

PICTURE 

IS 

X(2) 

0219 

QUERYJAME 

IS 

FM. 

0220 

0221 

15  FAILURE_SUBMODE 

PICTURE 

IS 

X(2) 

0222 

QUERY_NAME 

IS 

FSUBM. 

0223 

0224 

10 

ACCOMPLICE_SYSTEM_MODULE 

PICTURE 

IS 

X(8) 

0225 

QUERY_NAME 

IS 

ACCSYSMOD. 

0226 

0227 

10 

ACCOMPLICE  SYSTEM  MODULE  PARTS  REDEFINES 

0228 

ACCOMPL I CE_SYSTEM_MODULE . 

0229 

0230 

15  ACCOMPL I CE_SYSTEM 

PICTURE 

IS 

X(4) 

0231 

QUERY_NAME 

IS 

ACCSYS. 

0232 

0233 

15  ACCOMPL I CE_MODULE 

PICTURE 

IS 

9(4) 

0234 

QUERYJAME 

IS 

ACCMOD. 

0235 

0236 

05 

CODE_NUMBER 

PICTURE 

IS  X(21) 

0237 
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Datatrieve  Record  PROPAGATIONS_REC  (cont.) 


QUERY JAME  IS  CODENO. 

05  CODE_NUMBER  PARTS  REDEFINES 
CODEJIUMBER. 


10 

SYSTEM_MODULE_A 

PICTURE 

IS  X(8) 

QUERY_NAME 

IS  SYSMODA. 

10 

SYSTEM  MODULE  A PARTS  REDEFINES 

SYSTEM_MODULE_A. 

15  SYSTEM_A 

PICTURE 

IS  X( 4) 

QUERYJAME 

IS  SYSA. 

15  MODULE_A 

PICTURE 

IS  9(4) 

QUERYJAME 

IS  MODA. 

10 

CONNECTION 

PICTURE 

IS  X(4) 

QUERYJAME 

IS  CN. 

10 

CONNECTION  PARTS  REDEFINES 

CONNECTION. 

15  CONNECTION_TYPE 

PICTURE 

IS  X(2) 

QUERYJAME 

IS  CNTYPE. 

15  CONNECT I ON_QUAL I F I ER 

PICTURE 

IS  X(2) 

QUERYJAME 

IS  CNQUAL. 

10 

UNANT I C I PATED_CONNECT I ON 

PICTURE 

IS  X(l) 

QUERYJAME 

IS  UA. 

10 

SYSTEM_MODULE_B 

PICTURE 

IS  X(8) 

QUERYJAME 

IS  SYSMODB 

10  SYSTEM_MODULE_B_PARTS  REDEFINES 
SYSTEM  JIODULEJ. 


15  SYSTEMJ 

PICTURE 

IS  X(4) 

QUERYJAME 

IS  SYSB. 

15  MODULE_B 

PICTURE 

IS  9(4) 

QUERYJAME 

IS  MODB. 

S IGN AL_DESC  R I PT I ON . 

10  RAW_SIGNAL. 

15  SIGNAL_TYPE 

PICTURE 

IS  X(20) 

QUERYJAME 

IS  SIG. 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 


I 


B-ll 


Datatrieve  Record  PROPAGATIONS_REC  (cont.) 


15 

SIGNALJJNITS 

PICTURE 

IS  X( 25) 

0289 

QUERY_NAME 

IS  SIGUNIT. 

0290 

0291 

15 

DIMENSIONS 

PICTURE 

IS  9(1) 

0292 

QUERY_NAME 

IS  DIM. 

0293 

0294 

15 

SIGNAL_QUALITY 

PICTURE 

IS  9(1) 

0295 

QUERY_NAME 

IS  SIGQUAL. 

0296 

0297 

15 

FREQUENCY_TIME. 

0298 

0299 

20  MAX_FREQ_OR_TIME 

PICTURE 

IS  S9(2) 

0300 

QUERY  NAME 

IS  MAXFT 

0301 

EDIT_STRING 

IS  -29. 

0302 

0303 

20  MIN_FREQ_OR_TIME 

PICTURE 

IS  S9(2) 

0304 

QUERY  NAME 

IS  MINFT 

0305 

EDIT_STRING 

IS  -29. 

0306 

0307 

20  FTJNITS 

PICTURE 

IS  X( 25) 

0308 

QUERY_NAME 

IS  FTUNIT. 

0309 

0310 

SYMPTOM_ELEMENT. 

0311 

• 0312 

15 

SENSITIVE_PARAMETER. 

0313 

0314 

20  PARAMETER 

PICTURE 

IS  X( 20) 

0315 

QUERY_NAME 

IS  PAR. 

0316 

0317 

20  PARAMETER_UNITS 

PICTURE 

IS  X(25) 

0318 

QUERY_NAME 

IS  PARUNIT. 

0319 

0320 

15 

SYMPTOM_DURATION 

PICTURE 

IS  S9(2) 

0321 

QUERY  NAME 

IS  SYMDUR 

0322 

ED I T_STR I NG 

IS  -29. 

0323 

0324 

15 

PERIOD_OF_ONSET 

PICTURE 

IS  S9(2) 

0325 

QUERY  NAME 

IS  ONSET 

0326 

EDIT_STRING 

IS  -29. 

0327 

0328 

15 

INDICATES_FAILURE 

PICTURE 

IS  X(l) 

0329 

QUERYJAME 

IS  INDFAIL. 

0330 

0331 

COMMENTS. 

0332 

0333 

15 

COMMENT1 

PICTURE 

IS  X(80) . 

0334 

0335 

15 

COMMENT2 

PICTURE 

IS  X( 80) . 

0336 

0337 

15 

COMMENT3 

PICTURE 

IS  X(80) . 

0338 

0339 

B-12 


Datatrieve  Record  PROPAGATIONS_REC  (cont.) 


05 

DATE_LAST_M0D I F I ED 

USAGE 

IS  DATE 

0340 

QUERY  NAME 

IS  DLASTMOD 

0341 

EDIT_STRING 

IS  X(23). 

0342 

1 

0343 

05 

MOD I F Y I NG_PROCEDURE 

PICTURE 

IS  X( 20 ) 

0344 

QUERY_NAME 

IS  MODPROC. 

0345 

j 

0346 

05 

FILLER 

PICTURE 

IS  X( 30) . 

0347 

i 

0348 

9 

0349 

B-13 


Datatrieve  Record  REFERENCES_REC 


DEFINE 

: RECORD  REFERENCES  REC  USING 

0350 

j 

0351 

! 

0352 

* 01 

REFERENCES  REC. 

0353 

I 

0354 

05 

DATE_CREATED 

USAGE 

IS 

DATE 

0355 

QUERY  NAME 

IS 

DCREATED 

0356 

EDIT_STRING 

IS 

X(  23 ) . 

0357 

! 

0358 

05 

REFERENCE_NUMBER 

PICTURE 

IS 

X(5) 

0359 

QUERY_NAME 

IS 

REFNO. 

0360 

i 

0361 

05 

REFERENCE  NUMBER  PARTS  REDEFINES 

0362 

REFERENCE_NUMBER. 

0363 

i 

• 

0364 

10  SOURCE_ABBREVIATION 

PICTURE 

IS 

X(2) 

0365 

QUERY_NAME 

IS 

SABBREV. 

0366 

! 

0367 

10  SEQUENCEJUMBER 

PICTURE 

IS 

9(3) 

0368 

QUERY_NAME 

IS 

SEQNO. 

0369 

1 

0370 

05 

AUTHORS. 

0371 

1 

0372 

10  AUTHOR! 

PICTURE 

IS 

• 

ID 

CM 

X 

0373 

J 

0374 

10  AUTH0R2 

PICTURE 

IS 

X 

no 

cn 

• 

0375 

I 

0376 

10  AUTH0R3 

PICTURE 

IS 

in 

CM 

X 

0377 

J 

0378 

10  AUTH0R4 

PICTURE 

IS 

• 

in 

CM 

X 

0379 

| 

0380 

05 

DOCUMENTS  I TLE 

PICTURE 

IS 

X(161) 

0381 

QUERY  NAME 

IS 

TITLE 

0382 

EDIT_STRING 

IS 

T(80) . 

0383 

J 

0384 

05 

DOCUMENT_SOURCE 

PICTURE 

IS 

X(30) 

0385 

QUERY_NAME 

IS 

SOURCE. 

0386 

I 

0387 

05 

DOCUMENT_NUMBER 

PICTURE 

IS 

X(30) 

0388 

QUERY_NAME 

IS 

DOCNO. 

0389 

» 

0390 

05 

DOCUMENT_DATE 

PICTURE 

IS 

X(U) 

0391 

QUERY_NAME 

IS 

DOCDATE . 

0392 

I 

0393 

05 

CONTRACT_NUMBER 

PICTURE 

IS 

X(20) 

0394 

QUERY_NAME 

IS 

CONTNO. 

0395 

J 

0396 

05 

DATE_LAST_MOD I F I ED 

USAGE 

IS 

DATE 

0397 

QUERY  NAME 

IS 

DLASTMOD 

0398 

EDIT  STRING 

IS 

X(23) . 

0399 

J 

0400 

B- 14 


Datatrieve  Record  REFERENCES_REC  (cont.) 


05 

MOD  I F Y I NG_PR0CEDURE 

PICTURE 

IS  X(20) 

0401 

QUERYJAME 

IS  MODPROC. 

0402 

0403 

05 

FILLER 

PICTURE 

IS  X( 40) . 

0404 

0405 

B-15 


Datatrieve  Record  SYSTEMS_REC 


DEFINE  RECORD  SYSTEMS_REC  USING 

0406 

1 

0407 

J 

0408 

01  SYSTEMS_REC. 

0409 

! 

0410 

05 

DATE_CREATED 

USAGE 

IS 

DATE 

041  1 

QUERY  NAME 

IS 

DCREATED 

0412 

EDIT_STRING 

IS 

X( 23 ) . 

0413 

j 

0414 

05 

SYSTEM 

PICTURE 

IS 

X(4) 

0415 

QUERY_NAME 

IS 

SYS. 

0416 

i 

0417 

05 

SYSTEM_NAME 

PICTURE 

IS 

X(80) 

0418 

QUERY_NAME 

IS 

SYSNAME. 

0419 

0420 

05 

FMEA_ITEMS. 

• 

0421 

0422 

10  ITEM1 

PICTURE 

IS 

X(4). 

0423 

0424 

10  ITEM2 

PICTURE 

IS 

X(4). 

0425 

0426 

10  ITEM3 

PICTURE 

IS 

X(4) . 

0427 

0428 

10  ITEM4 

PICTURE 

IS 

X(4) . 

0429 

0430 

10  ITEM5 

PICTURE 

IS 

X(4) . 

0431 

0432 

10  ITEM6 

PICTURE 

IS 

X(4) . 

0433 

0434 

10  ITEM7 

PICTURE 

IS 

X(4) . 

0435 

0436 

10  ITEM8 

PICTURE 

IS 

X(4) . 

0437 

0438 

10  ITEM9 

PICTURE 

IS 

X(4) . 

0439 

0440 

10  ITEM10 

PICTURE 

IS 

X(4) . 

0441 

0442 

10  ITEM11 

PICTURE 

IS 

X(4) . 

0443 

0444 

10  ITEM12 

PICTURE 

IS 

• 

^r 

>< 

0445 

0446 

10  ITEM13 

PICTURE 

IS 

X(4) . 

0447 

0448 

10  ITEM14 

PICTURE 

IS 

X(4) . 

0449 

0450 

10  ITEM15 

PICTURE 

IS 

• 

>< 

0451 

0452 

05 

REFERENCES. 

0453 

0454 

10  REFERENCEl 

PICTURE 

IS 

X(5) 

0455 

QUERYJAME 

IS 

REF1. 

0456 

B-16 


Datatrieve  Record  SYSTEMS_REC  (cont.) 

10  REFERENCE2 
10  REFERENCE3 
10  REFERENCE4 
10  REFERENCES 
10  REFERENCES 
10  REFERENCE7 
10  REFERENCES 
10  REFERENCE9 
10  REFERENCE10 

05  PROPAGATIONS_FILE_CREATED 
05  DATE_LAST_MOD I F I ED 

05  MOD I FY I NG_PROCEDURE 


PICTURE  IS  X(5) 
QUERY_NAME  IS  REF2. 

PICTURE  IS  X(5) 
QUERY_NAME  IS  REF3. 

PICTURE  IS  X(5) 
QUERY_NAME  IS  REF4. 

PICTURE  IS  X(5) 
QUERY_NAME  IS  REF5. 

PICTURE  IS  X(5) 
QUERY_NAME  IS  REF6. 

PICTURE  IS  X( 5) 
QUERY_NAME  IS  REF7. 

PICTURE  IS  X( 5) 
QUERY_NAME  IS  REF8. 

PICTURE  IS  X( 5) 
QUERY_NAME  IS  REF9. 

PICTURE  IS  X(5) 
QUERY_NAME  IS  REF10. 

PICTURE  IS  X(3) 
QUERY_NAME  IS  FIPCREATED. 


USAGE  IS  DATE 

QUERY_NAME  IS  DLASTMOD 
EDIT_STRING  IS  X(23). 


PICTURE 

QUERY_NAME 


IS  X(20) 

IS  MODPROC. 


0‘ 

0- 

0< 

0- 

0< 

0- 

0- 

0< 

0- 

0- 

0- 

0- 

O' 

O' 

O' 

O' 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


05  FILLER 


PICTURE 


IS  X(17) . 


APPENDIX  C 


FI PM  FILE  DEFINITIONS 


C-l 

Domain  File  Definition  Page 


CONNECTIONS  C-3 

CONNECTIONS.FORM ■ C-4 

FAILUREMODES  C-5 

FAILUREMODES.FORM  C-6 

MODULES  C-7 

M0DULES_F0RM  C-8 

PR0PAGATI0NS_A150  C-9 

PR0PAGATI0NS_A200  C-10 

PR0PAGATI0NS_A600  C-ll ' 

PR0PAGATI0NS_A700  C-12 

PR0PAGATI0NS_B400  C-13 

PROPAGATIONS_B800  C-14 

PR0PAGATI0NS.C200  C-l  5 

PROPAGATIONS_FORM  C-16 

PR0PAGATI0NS_Z910  C-17 

REFERENCES C-18 

REFERENCES_FORM  C-19 

SYSTEMS  C-20 

SYSTEMS.FORM  C-21 


C-2 
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File  Definition  for  Domain  CONNECTIONS 


DEFINE  FILE  FOR  CONNECTIONS  KEY  = DATE_CREATED  (DUP), 

KEY  = CODE_NUMBER 


0001 

0002 


PRECEDING  PAGE  BLANK  NOT  FrLMED 


File  Definition  for  Domain  CONNECTIONS  FORM 


DEFINE  FILE  FOR  CONNECTIONS_FORM  KEY  = DATE_CREATED  (DUP), 

KEY  = CODE  NUMBER 


0003 

0004 


C-5 


File  Definition  for  Domain  FAILUREMODES 

DEFINE  FILE  FOR  FAILUREMODES  KEY  = DATE_CREATED  (DUP), 

KEY  = FMCODE 


C-6 

File  Definition  for  Domain  FAILUREMODES_FORM 


DEFINE  FILE  FOR  FAILUREMODES_FORM  KEY  = DATE_CREATED  (DUP), 

KEY  = FMCODE 


0007 

0008 


C-7 


File  Definition  for  Domain  MODULES 


DEFINE  FILE  FOR  MODULES  KEY  = DATE_CREATED  (DUP), 

KEY  = SYSTEM_MODULE 

KEY  = SYSTEM_MODULE  NAME  (DUP) 


0009 

0010 
0011 


C-8 


File  Definition  for  Domain  M0DULES_F0RM 


DEFINE  FILE  FOR  MODULES_FORM  KEY 

KEY 

KEY 


DATE_CREATED  (DUP), 

SYSTEM_MODULE 
SYSTEH_MODULE_NAME  (DUP) 


0012 

0013 

0014 


C-9 


File  Definition  for  Domain  PROPAGATI0NS_A150 


FN$CREATE_LOG( "PROPAGATIONS" , "PROPAGATIONS_A150")  0015 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0016 

KEY  = FMCODE  (DUP),  0017 
KEY  = CODE_NUMBER  (DUP),  00  is 
KEY  = SIGNAL_TYPE  (DUP)  0019 


C-10 


File  Definition  for  Domain  PROPAGATIONS_A2O0 


FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS_A200M)  0020 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0021 

KEY  = FMCODE  (DUP),  0022 
KEY  = CODE_NUMBER  (DUP),  0023 
KEY  = SIGNAL_TYPE  (DUP)  0024 


C-ll 


File  Definition  for  Domain  PROPAGATIONS_A6O0 


FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS_A600" ) 0025 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0026 

KEY  = FMCODE  (DUP),  0027 
KEY  = CODE_NUMBER  (DUP),  0028 
KEY  = SIGNAL_TYPE  (DUP)  0029 


C-12 


File  Definition  for  Domain  PR0PAGATI0NS_A700 


FN$CREATE_LOG(" PROPAGATIONS",  MPROPAGATI0NS_A700H)  ooso 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0031 

KEY  = FMCODE  (DUP),  0032 
KEY  = CODEJUMBER  (DUP),  0033 
KEY  = SIGNAL_TYPE  (DUP)  0034 


C-13 


File  Definition  for  Domain  PR0PAGATI0NS_B400 


FN$CREATE_LOG(" PROPAGATIONS",  HPR0PAGATI0NS_B400n)  0035 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0036 

KEY  = FMCODE  (DUP),  0037 
KEY  = CODE_NUMBER  (DUP),  0038 
KEY  = SIGNAL_TYPE  (DUP)  0039 


C-14 


File  Definition  for  Domain  PROPAGATIONS_B800 


FN$CREATE_LOG( "PROPAGATIONS" , " P ROP AG AT 1 0NS_B800 " ) ooao 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  004i 

KEY  = FMCODE  (DUP),  0042 
KEY  = CODE_NUMBER  (DUP),  0043 
KEY  = SIGNAL_TYPE  (DUP)  0044 


015 


File  Definition  for  Domain  PROPAGATIONS_C2O0 


FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS_C200" ) 0045 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0046 

KEY  = FMCODE  (DUP),  004? 
KEY  = CODE_NUMBER  (DUP),  0048 
KEY  = SIGNAL_TYPE  (DUP)  0049 


C-16 


File  Definition  for  Domain  PR0PAGATI0NS_F0RM 


DEFINE  FILE  FOR  PROPAGATIONS  FORM  KEY  = DATE  CREATED 

(DUP), 

0050 

KEY  = FMCODE 

(DUP), 

0051 

KEY  = CODE  NUMBER 

(DUP), 

0052 

KEY  = SIGNAL  TYPE 

(DUP) 

0053 

C-17 


File  Definition  for  Domain  PROPAGATI0NS_Z910 


FN$CREATE_LOG( "PROPAGATIONS",  "PR0PAGATI0NS_Z910")  0054 
DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE  CREATED  (DUP),  0055 

KEY  = FMCODE  (DUP),  0056 
KEY  = CODEJUMBER  (DUP),  0057 
KEY  = SIGNAL_TYPE  (DUP)  ooss 


C-18 


File  Definition  for  Domain  REFERENCES 


DEFINE  FILE  FOR  REFERENCES  KEY  = DATE  CREATED 

(DUP), 

0059 

KEY  = REFERENCE  NUMBER 

9 

0060 

KEY  = DOCUMENT  TITLE 

(DUP), 

0061 

KEY  = DOCUMENT  SOURCE 

(DUP) 

0062 

C-19 


File  Definition  for  Domain  REFERENCES_FORM 


DEFINE  FILE  FOR  REFERENCES  FORM  KEY  = DATE  CREATED 

(DUP), 

0063 

KEY  = REFERENCE  NUMBER 

0064 

KEY  = DOCUMENT  TITLE 

(DUP), 

0065 

KEY  = DOCUMENT  SOURCE 

(DUP) 

0066 

C-20 


File  Definition  for  Domain  SYSTEMS 


DEFINE  FILE  FOR  SYSTEMS  KEY 

KEY 

KEY 


= DATE_CREATED 
= SYSTEM 
= SYSTEM  NAME 


(DUP), 

9 


0067 

0068 
0069 


C-21 


File  Definition  for  Domain  SYSTEMS  FORM 


DEFINE  FILE  FOR  SYSTEMS_FORM  KEY  = DATE_CREATED  (DUP), 

KEY  = SYSTEM 
KEY  = SYSTEM  NAME 


C-22 
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APPENDIX  D 


FI PM  DCL  COMMAND  PROCEDURES 


D-l 


NOTE 

The  character  string  "<ESC>"  appears  in  some  of  the  following  procedures. 
This  string  represents  the  ASCII  escape  character.  It  is  actually  a single 
character  which  can  be  observed  only  while  editing  the  appropriate  file 
using  the  VAX  EDT  editor.  To  insert  this  character  in  a file,  the  EOT 
special  insert  (SPECINS)  function  must  be  used. 

DCL  Procedure  Page 


ACTIVATE.COM  D-3 

FIPM_LIST.COM  D-7 

FIPM_MENU.COM  D-ll 

FIPM_MODIFY.COM  D-13 

FIPM_STORE.COM  D-15 

LOGIN.COM  D-17 


D-2 


I 


(This  page  intentional ly  blank) 


D-3 

DCL  Command  Procedure  ACTIVATE.COM 


$!  0001 

$!  0004 

$ CREATE/DIRECTORY/PROTECTION=(SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0005 

DEVS206 : [BCDSSME2.DATA]  oooe 

$ CREATE/DIRECTORY/PROTECTION=(SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - ooo? 

DEVS206: [BCDSSME2.DTR]  ooos 

$ CREATE/D  I RECTORY/PROTECTION=( SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0009 

DEVS206: [BCDSSME2.FIPM]  0010 

$ CREATE/D  I RECTORY/PROTECTION= ( SYSTEM : RWE , OWNER : RWE , GROUP , WORLD ) - 0011 

DEV$206:[BCDSSME2. FORMS]  0012 

$ CREATE/D I RECTORY/PROTECTION= ( SYSTEM : RWE , OWNER : RWE , GROUP , WORLD ) - 0013 

DEV$206:[BCDSSME2. LISTS]  0014 

$ CREATE/D I RECTORY/PROTECTION= ( SYSTEM : RWE , OWNER : RWE , GROUP , WORLD ) - aois 

DEVS206: [BCDSSME2.L0GS]  0016 

$ CREATE/DIRECTORY/PROTECTION=(SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0017 

DEVS206:  [BCDSSME2.MISC]  ooie 

S!  0019 

$!  0022 

$ RUN  SYSSSYSTEM : DMU . EXE  0023 

SET  DEFAULT  CDDSTOP  0024 

CREATE/SUBD ICTI0NARY=DEV$206: [BCDSSME2]SSME.DIC  CDDSTOP. SSME  0025 

SET  DEFAULT  CDDSTOP. SSME  0026 

RESTORE  DEV$206:[BCDSSME2]CDD_F0RMS_1.BAK  CDDSTOP. SSME  0027 

RESTORE  DEVS206 : [ BCDSSME2 ] CDD_F0RMS_2 . BAK  CDDSTOP. SSME  0028 

RESTORE  DEVS206 : [ BCDSSME2 ] CDD_F0RMS_3 . BAK  CDDSTOP. SSME  0029 

EXIT  0030 

$ DEFINE  CDDSDEFAULT  "CDDSTOP. SSME"  0031 

$!  0032 

S!  0035 

$ RUN  SYSSSYSTEM : RDU . EXE  0036 

CREATE  LIBRARY  CDDSTOP. SSME. DTRTDMS  0037 

FORM  IS  CONNECTIONS_STO_FORM;  0038 

FORM  IS  FAILUREM0DES_FIN1_F0RM;  0039 

FORM  IS  FAILUREM0DES_FIN2_F0RM;  0040 

FORM  IS  FA I LUREMODES_MOD 1_F0RM ; 004i 

FORM  IS  FAI LUREM0DES_M0D2_F0RM ; 0042 

FORM  IS  FAILUREM0DES_ST01_F0RM;  0043 

FORM  IS  FAI LUREM0DES_ST02_F0RM ; 0044 

FORM  IS  MODULESF I NFORM ; 0045 

FORM  IS  MODULES_MOD_FORM ; 0046 

FORM  IS  MODULES_STO_FORM ; 0047 

FORM  IS  P ROP AG AT I ONS_F I N_F ORM ; 0048 

FORM  IS  P ROP AG AT I ONS_MOD_F ORM ; 0049 

FORM  IS  PROPAGATIONS_STO_FORM;  0050 

FORM  IS  REFERENCES_FIN_FORM;  oosi 
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D-4 


DCL  Command  Procedure  ACTIVATE.COM  (cont.) 


FORM  IS  REFERENCE$_MOD_FORM;  0052 

FORM  IS  REFERENCES_STO_FORM ; 0053 

FORM  IS  SYSTEMS_F I N_FORM ; 0054 

FORM  IS  SYSTEMS_MOD_FORM ; 0055 

FORM  IS  SYSTEMS_STO_FORM;  0056 

FILE  IS  "DEV$206: [BCDSSME2.FORMS3FORMSLIB.RLB" ; 0057 

END  DEFINITION;  0058 

EXIT  0059 

$!  0060 

$!  0063 

$ RUN  SYSSSYSTEM : RDU . EXE  0064 

BUILD  LIBRARY  DTRTDMS  0065 

EXIT  0066 

$!  0067 

$!  0070 

$ RUN  SYSSSYSTEM :DTR32  0071 

@DEV$206: [BCDSSME2] DTR_DOMAINS.COM  0072 

G>DEV$206:  [BCDSSME2] DTR_PROCS_l.COM  0073 

(?DEVS206:  [BCDSSME2]  DTR_PROCS_2.COM  0074 

@DEV$206 : [ BCDSSME2 ] DTR_PR0CS_3 . COM  0075 

©DEVS206: [BCDSSME2] DTR_PR0CS_4.C0M  0076 

0DEVS2O6: [BCDSSME2] DTR_PROCS_5.COM  0077 

GDEVS206 : [ BCDSSME2 ] DTR_PR0CS_6 . COM  0078 

@DEV$206: [BCDSSME2] DTR_RECORDS.COM  0079 

<?DEV$206:  [BCDSSME2]  DTR_TABLES.COM  ooeo 

EXIT  0081 

$!  0082 

$ I = =======  ===================================================================  0083 

$!  0085 

$ RENAME  DEVS206 : [ BCDSSME2 ] * . DAT ; * DEVS206 : [ BCDSSME2 . DATA] * . * ; * ooae 

$ SET  PROTECTION=(SYSTEM:RWE,OWNER:RWE, GROUP, WORLD)  - 0087 

DEVS206: [BCDSSME2.DATA ]*.*;*  oose 

S!  0089 

$ I =======================================================  ====================  0091 

$!  0092 

$ RENAME  DEVS206 : [ BCDSSME2 ] DTR* . COM ; * DEVS206: [BCDSSME2.DTR]*.*;*  0093 

$ SET  PROTECTION=(SYSTEM:RWE,OWNER:RWE, GROUP, WORLD)  - 0094 

DEVS206: [BCDSSME2.DTR]*.*;*  0095 

$!  0096 

$!===========================================================================  0098 

$!  0099 

$ RENAME  DEVS206: [ BCDSSME2 ] F I PM* . COM ; * DEVS206: [ BCDSSME2 .FI PM ]*.*;*  0100 

$ RENAME  DEVS206: [BCDSSME2] LIST*. COM;*  DEVS206: [BCDSSME2.FIPM]*.*;*  0101 

$ RENAME  DEVS206: [BCDSSME2] MODIFY*. COM;*  DEVS206: [BCDSSME2.FIPM]*.*;*  0102 
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DCL  Command  Procedure  ACTIVATE.COM  (cont.) 


$ RENAME  DEVS206: [BCDSSME2] STORE*. COM;*  DEVS206: [BCDSSME2.FIPM]*.*;*  0103 

$ SET  PROTECT I 0N=( SYSTEM :RWE, OWNER :RWE, GROUP, WORLD)  - oioa 

DEVS206: [BCDSSME2.FIPM]*.*;*  0105 

$!  0106 

$!  0109 

$ RENAME  DEVS206 : [BCDSSME2]*.BAK;*  DEVS206: [BCDSSME2. FORMS ]*.*;*  0110 

$ SET  PROTECTION=(SYSTEM:RWE,OWNER:RWE, GROUP, WORLD)  - 0111 

DEVS206: [ BCDSSME2 . FORMS ]*.*;*  0112 

$!  0113 

5 1 ====================================================== =====================  01 14 

j j 0116 

% ©DEVS206 : [ BCDSSME2  JL0GIN.COM  0 1 1 7 

$ | 0118 

S!  0121 


I 

I 
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DCL  Command  Procedure  FIPM_LIST.COM 


$ ON  CONTROL_Y  THEN  GOTO  LOOP  0122 

$ LOOP:  0123 

$ OUTPUT  :=  WRITE  SYSSOUTPUT  0124 

$ OUTPUT  "<ESC>[2J"  0125 

$ OUTPUT  "<ESC>[1;1H"  0126 

$ OUTPUT  " " 0127 

$ OUTPUT  ■ ======="  0128 

$ OUTPUT  " - 0129 

$ OUTPUT  " FAILURE  INFORMATION  PROPAGATION  MODEL"  0130 

$ OUTPUT  " " 0131 

$ OUTPUT  " =========== ====== ====================  0132 

$ OUTPUT  " " 0133 

$ OUTPUT  " " 0134 

$ OUTPUT  " LIST  MENU"  0135 

$ OUTPUT  " " 0136 

S OUTPUT  " 1.  Domain  REFERENCES"  0137 

$ OUTPUT  " 2.  Domain  SYSTEMS"  one 

$ OUTPUT  " 3.  Domain  MODULES"  0139 

$ OUTPUT  " 4.  Domain  FAILUREMODES"  0140 

$ OUTPUT  " 5.  Domain  CONNECTIONS"  0141 

$ OUTPUT  " 6.  Domain  PROPAGATIONS"  01 42 

$ OUTPUT  " 7.  Exit  to  MAIN  MENU"  0143 

$ OUTPUT  " " oi44 

$ OUTPUT  - - 0145 

$ INQUIRE  NUMBER  " Please  enter  LINE  NUMBER"  ci46 

$ IF  NUMBER  .EQS.  "1"  THEN  GOTO  REF  01 47 

$ IF  NUMBER  .EQS.  "2"  THEN  GOTO  SYS  01 48 

$ IF  NUMBER  .EQS.  "3"  THEN  GOTO  MOD  01 49 

$ IF  NUMBER  .EQS.  "4"  THEN  GOTO  FM  0150 

$ IF  NUMBER  .EQS.  "5"  THEN  GOTO  CON  0151 

$ IF  NUMBER  .EQS.  "6"  THEN  GOTO  FIP  0152 

$ IF  NUMBER  .EQS.  "7"  THEN  $ EXIT  0153 

$ GOTO  LOOP  0154 

$ REF:  0155 

$ OUTPUT  "<ESC>[2J"  Oise 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0157 

$ DTR32  @DEV$206:[ BCDSSME2.FI PM] LIST_REF_1.COM  oise 

S REF1:  0159 

$ OUTPUT  " " 0160 

$ OUTPUT  " " 0161 

$ OUTPUT  "Do  you  wish  to  list  Domain  REFERENCES?"  01 62 

$ OUTPUT  " " oi63 

$ INQUIRE  CONTI  "Enter  Y or  N"  0164 

$ IF  CONTI  .EQS.  "N"  THEN  GOTO  LOOP  01 65 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  REF1  0166 

$ DEFINE/USER_MODE  SYSSOUTPUT  NL:  01 67 

$ SUBM I T/NOPR I NTER/LOG_F I LE=DEV$206 : [ BCDSSME2 . LOGS ] - 0168 

DEVS206: [BCDSSME2. FI PM] LIST_REF_2.COM  0169 

$ OUTPUT  " " 0170 

$ OUTPUT  " " 0171 

$ OUTPUT  "The  listing  will  be  saved  in  file"  0172 
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DCL  Command  Procedure  FIPM_LIST.COM  (cont.) 


$ OUTPUT  "DEV$206: [BCDSSME2. LISTS] LIST_REF.LST. " 

$ OUTPUT  "Please  note  this  file  name  for  future  reference." 

$ OUTPUT  " " 

$ INQUIRE/NOPUNCTUATION  C0NT2  - 

"Enter  any  character  and  RETURN  to  continue  ..." 

$ GOTO  LOOP  • 

$ SYS: 

$ OUTPUT  "<ESC>[2J" 

$ DEFINE/USER_MODE  SYS$ INPUT  SYSSCOMMAND 

$ DTR32  @DEV$206: [BCDSSME2.FI PM] LIST_SYS_1.COM 

$ SYS1: 

$ OUTPUT  " " 

$ OUTPUT  " " 

S OUTPUT  "Do  you  wish  to  list  Domain  SYSTEMS?" 

$ OUTPUT  " " 

$ INQUIRE  CONTI  "Enter  Y or  N" 

$ IF  CONTI  .EQS.  "N"  THEN  GOTO  LOOP 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  SYS1 

$ DEFINE/USER_MODE  SYSSOUTPUT  NL: 

$ SUBMIT/N0PRINTER/L0G_FILE=DEV$206: [BCDSSME2.LOGS]  - 

DEVS206 : [ BCDSSME2 . F I PM] LIST_SYS_2 . COM 
S OUTPUT  " " 

$ OUTPUT  " " 

$ OUTPUT  "The  listing  will  be  saved  in  file" 

$ OUTPUT  "DEV$206: [BCDSSME2 . L ISTS ] L IST_SYS . LST . " 

$ OUTPUT  "Please  note  this  file  name  for  future  reference." 

$ OUTPUT  " " 

$ INQUIRE/NOPUNCTUATION  C0NT2  - 

"Enter  any  character  and  RETURN  to  continue  ..." 

$ GOTO  LOOP 

c unn* 

$ OUTPUT  "<ESC>[2J" 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

S DTR32  @DEV$206:  [BCDSSME2. FI PM] LIST_M0D_1.C0M 

$ MODI: 

$ OUTPUT  " " 

$ OUTPUT  " " 

$ OUTPUT  "Do  you  wish  to  list  Domain  MODULES?" 

$ OUTPUT  " " 

S INQUIRE  CONTI  "Enter  Y or  N" 

$ IF  CONTI  .EQS.  11 N"  THEN  GOTO  LOOP 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  MODI 

S DEFINE/USER_MODE  SYSSOUTPUT  NL: 

$ SUBM IT/NOPR INTER/LOG_F I LE=DEV$206 : [BCDSSME2.L0GS]  - 

DEVS206 : [BCDSSME2 . F I PM] LIST_M0D_2 . COM 
$ OUTPUT  " " 

$ OUTPUT  " " 

$ OUTPUT  "The  listing  will  be  saved  in  file" 

$ OUTPUT  "DEVS206: [BCDSSME2.LISTS]LIST_M0D.LST. " 

$ OUTPUT  "Please  note  this  file  name  for  future  reference." 

$ OUTPUT  " " 


0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
0223 
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DCL  Command  Procedure  FIPM_LIST.COM  (cont.) 


$ INQUIRE/NOPUNCTUATION  C0NT2  - 0224 

"Enter  any  character  and  RETURN  to  continue  ..."  0225 

$ GOTO  LOOP  0226 

$ FM:  0227 

$ OUTPUT  "<ESC>[2J " 0228 

$ DEFINE/USER_MODE  SYS$ INPUT  SYSSCOMMAND  0229 

$ DTR32  @DEV$206 : [ BCDSSME2 . F I PM ] L I ST_FM_1 . COM  0230 

$ FM1:  0231 

$ OUTPUT  " " 0232 

$ OUTPUT  " " 0233 

$ OUTPUT  "Do  you  wish  to  list  Domain  FAILUREMODES?"  0234 

$ OUTPUT  " " 0235 

$ INQUIRE  CONTI  "Enter  Y or  N"  0236 

$ IF  CONTI  .EQS.  "N"  THEN  GOTO  LOOP  0237 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  FM1  0238 

$ DEFINE/USER_MODE  SYSSOUTPUT  NL:  0239 

$ SUBMIT/N0PRTNTER/L0G_FILE=DEV$206: [BCDSSME2.L0GS]  - 0240 

DEVS206: [BCDSSME2.FI PM] LIST_FM_2.COM  0241 

$ OUTPUT  " " 0242 

$ OUTPUT  " " 0243 

$ OUTPUT  "The  listing  will  be  saved  in  file"  0244 

$ OUTPUT  "DEV$206: [BC0SSME2 . LISTS] LIST_FM. LST. " 0245 

$ OUTPUT  "Please  note  this  file  name  for  future  reference."  0246 

$ OUTPUT  " " 0247 

S INQUIRE/NOPUNCTUATION  C0NT2  - 0248 

"Enter  any  character  and  RETURN  to  continue  ..."  0249 

$ GOTO  LOOP  0250 

$ CON:  0251 

$ OUTPUT  "<ESC>[2J"  0252 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0253 

$ DTR32  ©DEVS206: [ BCDSSME2.FI PM] LIST_CON_l.COM  0254 

S CONI:  0255 

$ OUTPUT  " " 0256 

$ OUTPUT  " " 0257 

$ OUTPUT  "Do  you  wish  to  list  Domain  CONNECTIONS?"  0258 

$ OUTPUT  " " 0259 

S INQUIRE  CONTI  "Enter  Y or  N"  0260 

$ IF  CONTI  .EQS.  "N"  THEN  GOTO  LOOP  026 1 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  CONI  0262 

$ DEFINE/USER_MODE  SYSSOUTPUT  NL:  0263 

$ SUBMIT/N0PRINTER/L0G_FILE=DEV$206: [BCDSSME2.L0GS]  - 0264 

DEVS206 : [ BCDSSME2 . F I PM ] L IST_C0N_2 . COM  0265 

$ OUTPUT  " " 0266 

$ OUTPUT  " " 0267 

$ OUTPUT  "The  listing  will  be  saved  in  file"  0268 

$ OUTPUT  "DEVS206: [BCDSSME2 . LISTS] LIST_CON . LST. " 0269 

$ OUTPUT  "Please  note  this  file  name  for  future  reference."  0270 

$ OUTPUT  " " 0271 

$ INQUIRE/NOPUNCTUATION  C0NT2  - 0272 

"Enter  any  character  and  RETURN  to  continue  ..."  0273 

$ GOTO  LOOP  0274 
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DCL  Command  Procedure  FIPM_LIST.COM  (cont.) 


$ FIP:  0275 

$ OUTPUT  "<ESC>[2J"  0276 

S DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0277 

$ DTR32  @DEVS206: [ BCDSSME2 . FIPM] LIST_FIP_1.COM  0278 

$ FIP1:  * 0279 

$ OUTPUT  " " 0280 

$ OUTPUT  " " 028i 

$ OUTPUT  "Do  you  wish  to  list  the  Failure  Information"  0282 

$ OUTPUT  "Propagation  domains?"  0283 

$ OUTPUT  " " 0284 

$ INQUIRE  CONTI  "Enter  Y or  N"  0285 

$ IF  CONTI  .EQS.  "N"  THEN  GOTO  LOOP  0286 

$ IF  CONTI  .NES.  "Y"  THEN  GOTO  FIP1  0287 

$ DEFINE/USER_MODE  SYSSOUTPUT  NL:  0288 

S SUBMIT/NOPRINTER/LOG_FILEsDEVS206: [BCDSSME2.L0GS]  - 0289 

DEVS206: [BCDSSME2. FI PM] LIST_FIP_2.COM  0290 

$ OUTPUT  " " 0291 

$ OUTPUT  " " 0292 

$ OUTPUT  "The  listing  will  be  saved  in  file"  0293 

$ OUTPUT  "DEVJ206: [BCDSSME2.LISTS]LIST_FIP.LST. " 0294 

$ OUTPUT  "Please  note  this  file  name  for  future  reference."  0295 

$ OUTPUT  " " 0296 

S INQUIRE/NOPUNCTUATION  C0NT2  - 0297 

"Enter  any  character  and  RETURN  to  continue  ..."  0298 

$ GOTO  LOOP  0299 
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DCL  Command  Procedure  FIPM_MENU.COM 


$ ON  C0NTR0L_Y  THEN  GOTO  START  0300 

$ START:  0301 

$ SET  TERMINAL/ECHO  0302 

$ LOOP:  0303 

$ OUTPUT  :=  WRITE  SYSSOUTPUT  0304 

$ OUTPUT  "<ESC>[2J"  0305 

$ OUTPUT  "<ESC>[1;1H"  osoe 

$ OUTPUT  - - 0307 

$ OUTPUT  " " 0308 

$ OUTPUT  - " 0309 

$ OUTPUT  - »»»S».«,,,.,.S»..SSSSB«S,SSSS„38SSSS8SSS..  0310 

$ OUTPUT  - " 0311 

$ OUTPUT  " FAILURE  INFORMATION  PROPAGATION  MODEL"  0312 

$ OUTPUT  - - 0313 

$ OUTPUT  - ==============«===============================..  0314 

$ OUTPUT  - - 0315 

$ OUTPUT  - - 0316 

$ OUTPUT  " MAIN  MENU"  0317 

$ OUTPUT  " " 0318 

$ OUTPUT  " 1.  Store  FI PM  Data"  0319 

$ OUTPUT  " 2.  Modify  FIPM  Data"  0320 

$ OUTPUT  " 3.  List  FIPM  Data"  0321 

$ OUTPUT  " 4.  Exit  Procedure  and  Logout"  0322 

S OUTPUT  " " 0323 

$ OUTPUT  " " 0324 

$ INQUIRE  NUMBER  " Please  enter  LINE  NUMBER"  0325 

$ IF  NUMBER  .EQS.  "1"  THEN  - 0326 

$ 0DEVS2O6: [BCDSSME2. FI PM] FI PM_STORE.COM  0327 

$ IF  NUMBER  .EQS.  "2"  THEN  - 0328 

$ ©DEVS206: [ BCDSSME2.FI PM] FIPM_MODIFY.COM  0329 

$ IF  NUMBER  .EQS.  "3"  THEN  - 0330 

S @DE VS206 : [ BCDSSME2 . F I PM ] F I PM_L 1ST . COM  0331 

$ IF  NUMBER  .EQS.  "4"  THEN  GOTO  LGOUT  0332 

$ IF  NUMBER  .EQS.  "**"  THEN  GOTO  SYSTM  0333 

$ GOTO  LOOP  0334 

$ SYSTM:  0335 

$ OUTPUT  “ " 0336 

$ SET  TERMINAL/NOECHO  0337 

$ INQUIRE  PASSW0RD1  " Please  enter  PASSWORD  1"  0338 

$ SET  TERMINAL/ECHO  0339 

$ IF  PASSWORD  1 .NES.  ''******"  THEN  GOTO  LOOP  0340 

$ OUTPUT  " " 0341 

$ SET  TERMINAL/NOECHO  0342 

$ INQUIRE  PASSW0RD2  " Please  enter  PASSWORD  2"  0343 

$ SET  TERMINAL/ECHO  0344 

$ IF  PASSW0RD2  .NES.  "******••  THEN  GOTO  LOOP  0345 

$ OUTPUT  "<ESC>[2J"  0346 

$ OUTPUT  "<ESC>[1;1H"  0347 

$ EXIT  0348 

$ LGOUT:  0349 

$ SET  NOCONTROL  = Y 0350 
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DCL  Command  Procedure  FIPM_MENU.COM  (cont.) 


$ LOGOUT 


0351 
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DCL  Command  Procedure  FIPM_MODIFY.COM 


$ ON  CONTROL  Y THEN  GOTO  LOOP 
$ LOOP: 

$ OUTPUT  :=  WRITE  SYSSOUTPUT 

$ OUTPUT  "<ESC>[2J" 

$ OUTPUT  "<ESC>[1;1H" 

$ OUTPUT  ■ " 

<t  nilTDIlT  H 

$ 

WU  M U 1 

OUTPUT  11  " 

$ 

OUTPUT  " 

FAILURE 

INFORMATION  PROPAGATION  MODEL" 

s 

OUTPUT  " " 

niiTPiiT  ” 

„ 

$ 

uu iru 1 
OUTPUT  " " 

$ 

OUTPUT  " " 

s 

OUTPUT  " 

MODIFY  MENU" 

s 

OUTPUT  " *' 

$ 

OUTPUT  - 

1. 

Domain  REFERENCES" 

s 

OUTPUT  " 

2. 

Domain  SYSTEMS" 

$ 

OUTPUT  " 

3. 

Domain  MODULES" 

s 

OUTPUT  " 

4. 

Domain  FAILUREMODES" 

$ 

OUTPUT  " 

5. 

Domain  PROPAGATIONS" 

$ 

OUTPUT  " 

6. 

Exit  to  MAIN  MENU" 

$ 

OUTPUT  " " 

$ 

OUTPUT  " " 

$ 

INQUIRE  NUMBER  " 

Please  enter  LINE  NUMBER" 

$ 

IF  NUMBER  .EQS.  "1" 

THEN 

GOTO  REF 

$ 

IF  NUMBER  .EQS.  " 2 " 

THEN 

GOTO  SYS 

$ 

IF  NUMBER  .EQS.  "3" 

THEN 

GOTO  MOD 

$ 

IF  NUMBER  .EQS.  "4" 

THEN 

GOTO  FM 

$ 

IF  NUMBER  .EQS.  "5" 

THEN 

GOTO  FIP 

$ 

IF  NUMBER  .EQS.  "6" 

THEN 

$ EXIT 

$ 

GOTO  LOOP 

$ REF: 

$ OUTPUT  ”<ESC> [ 2J ” 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

$ DTR32  @DEV$206: [BCDSSME2. FIPMjMODIFY  REF.COM 

$ GOTO  LOOP 

S SYS: 

$ OUTPUT  "<ESC>[2J" 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

$ DTR32  ©DEVS206: [ BCDSSME2.FI PM] MODIFY  SYS.COM 
$ GOTO  LOOP 

$ MOD: 

$ OUTPUT  "<ESC>[2J" 

S DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

$ DTR32  ©DEVS206: [ BCDSSME2.FI PM] MODIFY  MOD.COM 

$ GOTO  LOOP 

S FM* 

$ OUTPUT  "<ESC>[2JH 

$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

S DTR32  ©DEVS206: [BCDSSME2.FIPM]M0DIFY  FM.COM 

$ GOTO  LOOP 


0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 


* A * * A i^A  * A 
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DCL  Command  Procedure  FIPM_MODIFY.COM  (cont.) 


FIP : 0403 

OUTPUT  "<ESC>[2J " 0404 
DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0405 
DTR32  @DEV$206: [ BCDSSME2.FI PM] MOD I FY_FIP.COM  0406 
GOTO  LOOP  0407 
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DCL  Command  Procedure  FIPM_STORE.COM 


$ 

ON  CONTROL  Y THEN  GOTO 

LOOP 

0408 

$ 

LOOP: 

0409 

$ 

OUTPUT  :=  WRITE  SYSSOUTPUT 

0410 

$ 

OUTPUT  "<ESC>[2J" 

041  1 

$ 

OUTPUT  "<ESC>[1;1H" 

0412 

$ 

OUTPUT  " " 

0413 

$ 

OUTPUT  " 

0414 

$ 

OUTPUT  - “ 

0415 

$ 

OUTPUT  " 

FAILURE  INFORMATION  PROPAGATION  MODEL" 

0416 

$ 

OUTPUT  - " 

0417 

$ 

OUTPUT  " 

0418 

$ 

OUTPUT  " " 

0419 

$ 

OUTPUT  " " 

0420 

$ 

OUTPUT  " 

STORE  MENU" 

0421 

s 

OUTPUT  - M 

0422 

$ 

OUTPUT  - 

1. 

Domain 

REFERENCES" 

0423 

$ 

OUTPUT  H 

2. 

Domain 

SYSTEMS" 

0424 

$ 

OUTPUT  M 

3. 

Domain 

MODULES" 

0425 

$ 

OUTPUT  " 

4. 

Domain 

FAILUREMODES" 

0426 

$ 

OUTPUT  - 

5. 

Domain 

CONNECTIONS" 

0427 

s 

OUTPUT  - 

6. 

Domain 

PROPAGATIONS" 

0428 

$ 

OUTPUT  " 

7. 

Exit  to  MAIN  MENU" 

0429 

$ 

OUTPUT  " " 

0430 

$ 

OUTPUT  - " 

0431 

$ 

INQUIRE  NUMBER  11 

Please  enter  LINE  NUMBER" 

0432 

$ 

IF  NUMBER  .EQS.  "1" 

THEN  GOTO  REF 

0433 

$ 

IF  NUMBER  .EQS.  "2" 

THEN  GOTO  SYS 

0434 

$ 

IF  NUMBER  .EQS.  "3" 

THEN  GOTO  MOD 

0435 

$ 

IF  NUMBER  .EQS.  "4" 

THEN  GOTO  FM 

0436 

$ 

IF  NUMBER  .EQS.  H5" 

THEN  GOTO  CON 

0437 

$ 

IF  NUMBER  .EQS.  "6" 

THEN  GOTO  FIP 

0438 

s 

IF  NUMBER  .EQS.  "7“ 

THEN  S EXIT 

0439 

$ 

GOTO  LOOP 

0440 

$ 

REF: 

0441 

s 

OUTPUT  "<ESC>[2J“ 

0442 

$ 

DEFINE/USER  MODE  SYS$ INPUT  SYSSCOMMAND 

0443 

s 

DTR32  @DEV$206:[ BCDSSME2.FI PM] STORE  REF.COM 

0444 

$ 

GOTO  LOOP 

0445 

$ 

SYS: 

0446 

$ 

OUTPUT  "<ESC>[2J" 

0447 

$ 

DEFINE/USER  MODE  SYSSINPUT  SYSSCOMMAND 

0448 

$ 

DTR32  @DEV$206:[ BCDSSME2.FI PM] STORE  SYS.COM 

0449 

$ 

GOTO  LOOP 

0450 

$ 

MOD: 

0451 

s 

OUTPUT  "<ESC>[2J" 

0452 

$ 

DEFINE/USER  MODE  SYSSINPUT  SYSSCOMMAND 

0453 

$ 

DTR32  0DEVS2O6: [BCDSSME2.FI PM] STORE  MOD.COM 

0454 

$ 

GOTO  LOOP 

0455 

$ 

FM: 

0456 

$ 

OUTPUT  "<ESC>[2J" 

0457 

$ 

DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND 

0458 

D-16 


DCL  Command  Procedure  FIPM_STORE.COM  (cont.) 


$ DTR32  9DEV$206:[ BCDSSME2.FI PM] STORE_FM.COM  0459 
$ GOTO  LOOP  0460 
$ CON:  046i 
$ OUTPUT  "<ESC>[2J"  0462 
$ DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0463 
$ DTR32  @DEV$206:[ BCDSSME2.FI PM] STORE_CON.COM  0464 
$ GOTO  LOOP  0465 
S FIP:  0466 
$ OUTPUT  "<ESC>[2J"  0467 
S DEFINE/USER_MODE  SYSSINPUT  SYSSCOMMAND  0468 
$ DTR32  @DEV$206:[ BCDSSME2.FI PM] STORE_FIP.COM  0469 
$ GOTO  LOOP  0470 
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DCL  Command  Procedure  LOGIN.COM 


$ ON  WARNING  THEN  GOTO  PROMPT  047i 

$ ON  CONTROL_Y  THEN  GOTO  LGOUT  0472 

S DEFINE  CDDSDEFAULT  "CDDSTOP.SSME"  0473 

$ IF  F$MODE( ) .NES.  "INTERACTIVE"  THEN  EXIT  0474 

$ GOTO  START  0475 

$ LGOUT:  0476 

$ SET  NOCONTROL  = Y 0477 

$ SET  TERMINAL/ECHO  0478 

$ LOGOUT  0479 

$ START : 0480 

$ SET  TERMINAL/DEVICE_TYPE  = VT100  048i 

$ SET  PROTECT I 0N= ( SYSTEM : RWE , OWNER : RWED , GROUP , WORLD )/DEFAULT  0482 

$ SET  PROTECTION= (SYSTEM: RWE, OWNER: RWE, GROUP .WORLD)  - 0483 

DEVS206: [ BCDSSME2 ]*.*;*  0484 

S SET  PROTECTIONS (SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0485 

DEVS206: [ BCDSSME2 . DATA] * . * ; * 0486 

$ SET  PROTECT ION* (SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  . 0487 

DEVS206: [BCDSSME2.DTR]*.*;*  0488 

$ SET  PROTECTION=(SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0489 

DEVS206: [BCDSSME2.FIPM]*.*;*  0490 

$ SET  PROTECTIONS (SYSTEM: RWE, OWNER: RWE, GROUP, WORLD)  - 0491 

DEVS206: [BCDSSME2. FORMS]*.*;*  0492 

$ SET  DEFAULT  [BCDSSME2.MISC]  0493 

$ FI PM  :==  (?DEV$206:[ BCDSSME2.FI PM] FI PM_MENU.COM  0494 

$ DTR32  :==  $SYS$SYSTEM:DTR32  0495 

$ ON  WARNING  THEN  GOTO  DIRECT0RY2  0496 

$ SET  MESSAGE/NOFACILITY  - 0497 

/NOIDENTIFICATION  - 0498 

/NOSEVERITY  - 0499 

/NOTEXT  osoo 

S D I RECTORY/TOTAL/S I2E=ALL  DEVS206: [BCDSSME2. LISTS]  0501 

$ DIRECT0RY2:  0502 

$ ON  WARNING  THEN  GOTO  PROMPT  0503 

$ DIRECTORY/TOTAL/SIZE=ALL  DEVS206: [BCDSSME2.L0GS]  0504 

$ WRITE  SYSSOUTPUT  " " osos 

$ WRITE  SYSSOUTPUT  - osoe 

" The  directory  or  directories  shown  above  should  be  checked  for"  0507 
$ WRITE  SYSSOUTPUT  - osos 

" files  which  are  no  longer  required.  Unnecessary  files  should"  0509 
$ WRITE  SYSSOUTPUT  - 0510 

" be  deleted  as  soon  as  possible."  0511 

$ PROMPT:  0512 

$ ON  WARNING  THEN  GOTO  PROMPT  0513 

S SET  MESSAGE/FACILITY  - 0514 

/IDENTIFICATION  - 0515 

/SEVERITY  - 0516 

/TEXT  0517 

$ WRITE  SYSSOUTPUT  " " os  is 

$ INQUIRE/NOPUNCTUATION  RESPONSE  - os  19 

" Please  enter  RETURN  to  continue  ...  " 0520 

$ IF  RESPONSE  .EQS.  "**"  THEN  GOTO  PASS1  0521 


DCL  Command  Procedure  LOGIN.COM  (cont.) 
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I 


$ PDEV$206:[ BCDSSME2.FI PM] FI PM_MENU.COM  0522 

$ EXIT  0523 

$ PASS1 : 0524 

$ WRITE  SYSSOUTPUT  " " 0525 

$ SET  TERMINAL/NOECHO  0526 

$ INQUIRE  PASSWORD 1 - 0527 

" Please  enter  PASSWORD  1"  052s 

$ SET  TERMINAL/ECHO  0529 

$ IF  PASSWORD  1 .NES.  ■’******"  THEN  GOTO  PROMPT  0530 

$ WRITE  SYSSOUTPUT  " " 0531 

$ SET  TERMINAL/NOECHO  0532 

$ INQUIRE  PASSW0RD2  - 0533 

" Please  enter  PASSWORD  2"  0534 

$ SET  TERMINAL/ECHO  0535 

$ IF  PASSW0RD2  .NES.  ''******"  THEN  GOTO  PROMPT  0536 

$ EXIT  0537 


APPENDIX  E 


FI  PM  DATATRIEVE  COMMAND  FILES 


E-l 

Datatrieve  Conmiand  File  Page 

LIST_C0N_1.C0M  E-3 

LIST_CON_2.COM  E-4 

LIST_FIP_1.COM  E-6 

LIST_FIP_2.COM E-7 

LIST_FM_1.COM  E-9 

LIST_FM_2.COM  E-10 

LIST_M0D_1.C0M  E-12 

LIST_MOD_2.COM  E-13 

LIST_REF_1.COM E-15 

LIST_REF_2.COM  E-16 

LIST_SYS_1.COM  E-18 

LIST_SYS_2.COM E-l  9 

MODIFY_FIP.COM  E-21 

MODIFY_FM.COM  E-22 

MODIFY_MOD.COM  E-23 

MODIFY_REF.COM  E-24 

MODIFY_SYS.COM  E-25 

STORE_CON.COM  E-26 

STORE_FIP.COM  E-27 

STORE_FM.COM E-28 

STORE_MOD.COM  E-29 

STORE_REF.COM  E-30 

STORE_SYS.COM  E-31 


(This  page  intentionally  blank) 


E-3 

Datatrieve  Command  File  LIST_C0N_1.C0M 

DECLARE  ICNT  PIC  9(5). 

0001 

DECLARE  JCNT  PIC  9(5). 

0002 

DECLARE  KCNT  PIC  9(5). 

0003 

READY  CONNECTIONS  SHARED  READ 

0004 

ICNT  = 0 

0005 

FOR  CONNECTIONS  ICNT  = ICNT  + 1 

0006 

JCNT  = ICNT  / 5 

0007 

KCNT  = JCNT  * 5 

0008 

IF  KCNT  LT  ICNT  THEN  JCNT  = JCNT  + 1 

0009 

:CLRSCRN 

0010 

PRINT  SKIP  3, 

0011 

"Domain  CONNECTIONS  contains",  SPACE  1, 

0012 

ICNT  (-)  USING  ZZZ29,  SPACE  1,  "records.",  SKIP  2, 

0013 

"With  5 records  per  page  the  resulting  file",  SKIP  1, 

0014 

"will  contain",  SPACE  1,  JCNT  (-)  USING  ZZZZ9,  SPACE  1, 

0015 

lu,-..  It 

pages. 

0016 

EXIT 

0017 

PRECEDING  PAGE  BLANK  NOT  FILMED 
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Datatrieve  Command  File  LIST_CON_2.COM 


$ DTR32 
SET  NO  PROMPT 


PROCEDURE  TO  LIST  THE  RECORDS  IN  DOMAIN  CONNECTIONS  TO  A FILE  FOR 
PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING  ORDER  OF  THE  FOLLOWING 
FIELDS: 

1.  SYSTEMMODULEA 

2.  CONNECTION 

3.  UNANT I C I PATED_CONNECT I ON 

4.  SYSTEM  MODULEB 

THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN  80-COLUMN  FORMAT 
AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


DECLARE  ICNT 
DECLARE  JCNT 
DECLARE  KCNT 
DECLARE  CAL 


PIC  9(5). 

PIC  9(5). 

PIC  9(5). 

USAGE  DATE 
EDIT_STRING  X(23). 
READY  MODULES  SHARED  READ 
READY  CONNECTIONS  SHARED  READ 
JCNT  = 0 

FOR  CONNECTIONS  JCNT  = JCNT  + 1 


CAL  = “NOW" 

ON  DEVS206:  [BCDSSME2. LISTS] LIST_CON.LST 
BEGIN 

ICNT  = 1 
KCNT  = 1 

FOR  MODULES  SORTED  BY  SYSTEM_MODULE 
BEGIN 

FOR  CONNECTIONS  WITH 

SYSTEM_MODULE_A  = MODULES. SYSTEM_MODULE  SORTED  BY 
CODE_NUMBER 
BEGIN 

IF  KCNT  = 1 THEN  PRINT  NEW_PAGE , 

COL  1,  "Domain  CONNECTIONS", 
COL  64,  CAL  (-)  USING  X(17) 

PRINT  SKIP  2, 

COL  1,  "RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZZZ9,  SPACE  1, 

"OF"  SPACE  1 

JCNT  (-)  USING  ZZZZ9,  SKIP  1, 

COL  1,  ••============«=====«================ 

SPACE  0, 


SKIP  2, 

COL  1,  "DATE_CREATED  SPACE  1, 


It 


> 


It 


0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 
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Datatrieve  Command  File  LIST_CON_2.COM  (cont.) 


DATE_CREATED  (-)  USING  X(23),  SKIP  1,  0069 

COL  1,  "CODE_NUMBER  SPACE  1,  oo?o 

SYSTEM_A  (-)  USING  X(4),  oo?i 

SPACE  1,  0072 

MODULE_A  (-)  USING  9(4),  0073 

SPACE  1,  0074 

CONNECTION_TYPE  (-)  USING  X(2),  0075 

SPACE  1,  0076 

CONNECTION_QUALI FIER  (-)  USING  X(2),  0077 

SPACE  1,  0078 

UNANTIC IPATED_CONNECTION  (-)  USING  X(l),  0079 

SPACE  1,  0080 

SYSTEM_B  (-)  USING  X(4),  ooei 

SPACE  1,  0082 

MODULE_B  (-)  USING  9(4),  0083 

SKIP  1,  0084 

COL  1,  " DATE_LAST_MOD I F I ED  SPACE  1,  ooss 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  oose 
COL  1,  "MODIFYING_PROCEDURE  SPACE  1,  0087 

MOD I FY ING_PROCEDURE  (-)  USING  X(20),  SKIP  2,  0088 

COL  1,  "========================================" } 0089 

SPACE  0,  0090 

•■===============================„=======..  0091 

ICNT  = ICNT  + 1 0092 

KCNT  = KCNT  + 1 0093 

IF  KCNT  = 6 THEN  KCNT  = 1 0094 

END  0095 

END  0096 

END  0097 

EXIT  0098 

$ EXIT  0099 


E-6 


Datatrieve  Command  File  LIST  FIP  1.C0M 


:FIP_COUNT 

EXIT 


E-7 


Datatrieve  Command  File  LIST_FIP_2.COM 


$ DTR32 
SET  NO  PROMPT 


PROCEDURE  TO  LIST  THE  RECORDS  IN  THE  FAILURE  INFORMATION  PROPAGATIONS 
DOMAINS  TO  A FILE  FOR  PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING 
ORDER  OF  THE  FOLLOWING  FIELDS  FOR  EACH  DOMAIN: 

1.  FMCODE 

2.  SIGNAL_TYPE 

3.  PARAMETER 

4.  DATE_CREATED 

THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN  80-COLUMN  FORMAT 
AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

DECLARE  LCNT  PIC  9(5). 

DECLARE  MCNT  PIC  9(5) . 

DECLARE  NCNT  PIC  9(5). 

DECLARE  PCNT  PIC  9(5). 

DECLARE  HSYSTEM  PIC  X(4). 

DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 

READY  SYSTEMS  SHARED  READ 
CAL  = "NOW" 

ICNT  = 0 

FOR  SYSTEMS  WITH  PROPAGAT I ONS_F I LE_CREATED  = "YES" 

ICNT  = ICNT  + 1 
JCNT  = 0 
MCNT  = 0 
:FIP_LIST_1 
JCNT  = 0 
NCNT  = 0 
:FIP_LIST_3 

IF  FN$TRANS_LOG( "PROPAGATIONS")  NE  "PROPAGATIONS"  THEN 
FN$DELETE_LOG( "PROPAGATIONS") 

IF  FN$TRANS_LOG( "PROPAGATIONS_FILE" ) NE  "PROPAGAT I ONS_F I LE"  THEN 
FN$DELETE_LOG ( " PROPAGAT IONS_F I LE " ) 

IF  FN$TRANS_LOG( "PROC")  NE  "PROC"  THEN 
FN$DELETE_LOG( "PROC" ) 

EXIT 

$ SET  DEFAULT  DEVS206: [BCDSSME2. LISTS] 

$ CREATE  DEVS206 : [ BCDSSME2 . LISTS ] L IST_F I P . LST 
$ APPEND  FIP_*.LST  LIST_FIP.LST 
$ SET  PROTECT I 0N= ( OWNER : RWED ) FIP_*.LST 
$ DELETE  FIP_*.LST;* 


0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 


E-8 

Datatrieve  Command  File  LIST_FIP_2.COM  (cont.) 


$ SET  PROTECTION=(SYSTEM:RWE,OWNER:RWE, GROUP, WORLD)  LIST_FIP.LST 
S SET  DEFAULT  DEVS206: [BCDSSME2.MISC] 


0153 

0154 


E-9 

Datatrieve  Command  File  LIST_FM_1.COM 


DECLARE  ICNT  PIC  9(5).  0155 

DECLARE  JCNT  PIC  9(5).  oise 

DECLARE  KCNT  PIC  9(5).  0157 

READY  FAILUREMODES  SHARED  READ  01 58 

ICNT  = 0 0159 

FOR  FAILUREMODES  ICNT  = ICNT  +1  oieo 

JCNT  = ICNT  / 2 0161 

KCNT  = JCNT  * 2 01 62 

IF  KCNT  LT  ICNT  THEN  JCNT  = JCNT  + 1 0163 

: CLRSCRN  01 64 

PRINT  SKIP  3,  0165 

"Domain  FAILUREMODES  contains",  SPACE  1,  01 66 

ICNT  (-)  USING  ZZZZ9,  SPACE  1,  "records.",  SKIP  2,  0157 

"With  2 records  per  page  the  resulting  file",  SKIP  1,  0168 

"will  contain",  SPACE  1,  JCNT  (-)  USING  ZZZZ9,  SPACE  1,  01 69 

"pages."  0170 

0171 


EXIT 
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Datatrieve  Command  File  LIST  FM  2. COM 


$ DTR32  0172 

SET  NO  PROMPT  0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 


DECLARE  ICNT  PIC  9(5).  0185 

DECLARE  JCNT  PIC  9(5).  0186 

DECLARE  KCNT  PIC  9(5).  01 87 

DECLARE  CAL  USAGE  DATE  01 88 

EDIT_STRING  X(23).  0189 

READY  FAILUREMODES  SHARED  READ  0190 

JCNT  = 0 0191 

FOR  FAILUREMODES  JCNT  = JCNT  +1  0192 

CAL  = "NOW"  0193 

ON  DEVS206 : [ BCDSSME2 . LISTS ] L IST_FM . LST  0194 

BEGIN  0195 

ICNT  = 1 0196 

KCNT  =1  0197 

FOR  FAILUREMODES  SORTED  BY  FMCODE  01 98 

BEGIN  0199 

IF  KCNT  = 1 THEN  PRINT  NEW_PAGE,  0200 

COL  1,  "Domain  FAILUREMODES",  0201 

COL  64,  CAL  (-)  USING  X(17)  0202 

PRINT  SKIP  1,  0203 

COL  1,  "RECORD  NO.",  SPACE  1,  0204 

ICNT  (-)  USING  ZZZZ9,  SPACE  1,  0205 

"OF",  SPACE  1,  0206 

JCNT  (-)  USING  ZZZZ9,  SKIP  1,  0207 

COL  1,  "========================================",  0208 

SPACE  0,  0209 

11  , 0210 

SKIP  2,  0211 

COL  1,  "DATE_CREATED  :",  SPACE  1,  0212 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  0213 

COL  1,  "FMCODE  :\  SPACE  1,  021 4 

SOURCESYSTEM  (-)  USING  X(4),  SPACE  1,  0215 

SOURCE_MODULE  (-)  USING  9(4),  SPACE  1,  0216 

FAILURE_MODE  (-)  USING  X(2),  SPACE  1,  0217 

FAILURE_SUBMODE  (-)  USING  X(2),  SPACE  1,  0218 

ACCOMPLICE_SYSTEM  (-)  USING  X(4),  SPACE  1,  0219 

ACCOMPL I CE_MODULE  (-)  USING  9(4),  SKIP  1,  0220 

COL  1,  "DESCRIPTION  :",  SPACE  1,  0221 

DESCRIPTION  (-)  USING  T(58),  SKIP  1,  0222 


PROCEDURE  TO  LIST  THE  RECORDS  IN  DOMAIN  FAILUREMODES  TO  A FILE  FOR 
PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING  ORDER  OF  THE  FIELD 
FMCODE.  THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN  80-COLUMN 
FORMAT  AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


E-ll 


Datatrieve  Command  File  LIST_FM_2.COM  (cont.) 


COL  l,  "EFFECT1  SPACE  1,  0223 

EFFECT1  (-)  USING  T(58),  SKIP  1,  0224 

COL  1,  "EFFECT2  SPACE  1,  0225 

EFFECT2  (-)  USING  T(58),  SKIP  1,  0226 

COL  1,  "EFFECT3  • SPACE  1,  0227 

EFFECT3  (-)  USING  T(58) , SKIP  1,  0228 

COL  1,  "EFFECT4  :\  SPACE  1,  0229 

EFFECT4  (-)  USING  T(58),  SKIP  1,  0230 

COL  1,  "EFFECTS  :\  SPACE  1,  0231 

EFFECTS  (-)  USING  T(58),  SKIP  1,  0232 

COL  1,  "EFFECT6  SPACE  1,  0233 

EFFECT6  (-)  USING  T(58),  SKIP  1,  0234 

COL  1,  "DATE  LAST_MODIFIED  :\  SPACE  1,  0235 

DATEJ.AST_MODIFIED  (-)  USING  X(23),  SKIP  1,  0236 

COL  1,  "MOD I FY ING_PROCEDURE  SPACE  1/  0237 

MOD I FY I NG_PROCEDURE  (-)  USING  X(20),  SKIP  2,  0238 

COL  1,  ••«========««=««========««=========>•,  0239 

SPACE  0,  0240 

0241 

ICNT  * ICNT  + 1 0242 

KCNT  = KCNT  + 1 0243 

IF  KCNT  = 3 THEN  KCNT  = 1 0244 

END  0245 

END  0246 

EXIT  0247 

$ EXIT  0248 


E-12 


Datatrieve  Command  File  LIST_M0D_1.C0M 


DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

READY  MODULES  SHARED  READ 

ICNT  = 0 

FOR  MODULES  ICNT  = ICNT  + 1 
JCNT  = ICNT  / 3 
KCNT  = JCNT  * 3 

IF  KCNT  LT  ICNT  THEN  JCNT  = JCNT  + 1 

tCLRSCRN 

PRINT  SKIP  3 

"Domain  MODULES  contains",  SPACE  1, 

ICNT  (-)  USING  ZZZZ9,  SPACE  1,  "records.",  SKIP  2, 
"With  3 records  per  page  the  resulting  file",  SKIP  1, 
"will  contain",  SPACE  1,  JCNT  (-)  USING  11119,  SPACE  1, 

"na/iAC  11 


0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 


EXIT 


E-13 


Datatrieve  Command  File  LIST_MOD_2.COM 


$ DTR32 
SET  NO  PROMPT 


PROCEDURE  TO  LIST  THE  RECORDS  IN  DOMAIN  MODULES  TO  A FILE  FOR 
PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING  ORDER  OF  THE  FIELD 
SYSTEM_MODULE.  THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN 
80-COLUMN  FORMAT  AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  ' PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 
READY  MODULES  SHARED  READ 
JCNT  = 0 

FOR  MODULES  JCNT  = JCNT  + 1 
CAL  = "NOW 

ON  DEVS206: [BCDSSME2.LISTS]LIST_M0D.LST 
BEGIN 

ICNT  = 1 


KCNT  = 1 

FOR  MODULES  SORTED  BY  SYSTEM_MODULE 
BEGIN 

IF  KCNT  = 1 THEN  PRINT  NEW_PAGE , 

COL  1,  "Domain  MODULES", 

COL  64,  CAL  (-)  USING  X(17) 

PRINT  SKIP  2, 

COL  1,  "RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZZZ9 , SPACE  1, 

"OF"  SPACE  1 

JCNT  (-)  USING  11119,  SKIP  1,’ 

COL  1,  "========================================••, 

SPACE  0, 


COL  1, 
COL  1, 


COL  1, 
COL  1, 
COL  1, 


SKIP  2, 

"DATE_CREATED 
DATE_CREATED  (-)  USING 
"SYSTEM_MODULE 
SYSTEM  (-)  USING  X(4), 
MODULE  (-)  USING  9(4), 
"SYSTEM_MODULE_NAME 
SYSTEM_MODULE_NAME  (-) 
"SYSTEM_MODULE_FUNCTION 
SYSTEM_MODULE_FUNCTION 
" DATE_LAST_MOD I F I ED 
DATE_LAST_MOD I F I ED  (-) 


....... It 

.......  , 

SPACE  1, 

X(23) , SKIP  1, 

:",  SPACE  1, 

SPACE  1, 

SKIP  1, 

• " SPACF  1 

UsiNG  T ( 55) , SKIP  1,’ 

SPACE  1 

(-)  USING  T ( 55 ) , SKIP  1, 
:",  SPACE  1, 

USING  X(23),  SKIP  1, 


9 


0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 


E-14 


Datatrieve  Command  File  LIST_MOD_2.COM  (cont.) 

COL  1,  "MODIFYING_PROCEDURE  :\  SPACE  1,  0317 


MODIFYING_PROCEDURE  (-)  USING  X(20),  SKIP  2,  03ia 

COL  1,  "========================================",  0319 

SPACE  0,  0320 

"=r======r================r=========r===="  0321 

ICNT  = ICNT  + 1 0322 

KCNT  = KCNT  + 1 0323 

IF  KCNT  = 4 THEN  KCNT  = 1 0324 

END  0325 

END  0326 

EXIT  0327 

$ EXIT  0328 


E-15 


Datatrieve  Command  File  LIST_REF_1.COM 


DECLARE  ICNT  PIC  9(5).  0329 

DECLARE  JCNT  PIC  9(5).  0330 

DECLARE  KCNT  PIC  9(5).  0331 

READY  REFERENCES  SHARED  READ  0332 

ICNT  = 0 0333 

FOR  REFERENCES  ICNT  = ICNT  + 1 0334 

JCNT  = ICNT  / 2 0335 

KCNT  = JCNT  * 2 0336 

IF  KCNT  LT  ICNT  THEN  JCNT  = JCNT  + 1 0337 

:CLRSCRN  0338 

PRINT  SKIP  3,  0339 

"Domain  REFERENCES  contains",  SPACE  1,  0340 

ICNT  (-)  USING  ZZZZ9,  SPACE  1,  "records.",  SKIP  2,  034i 

"With  2 records  per  page  the  resulting  file",  SKIP  1,  0342 

"will  contain",  SPACE  1,  JCNT  (-)  USING  ZZZZ9,  SPACE  1,  0343 

"pages."  0344 

0345 


EXIT 
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Datatrieve  Command  File  LIST_REF_2.COM 

$ DTR32  0346 

SET  NO  PROMPT  0347 


PROCEDURE  TO  LIST  THE  RECORDS  IN  DOMAIN  REFERENCES  TO  A FILE  FOR 
PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING  ORDER  OF  THE  FIELD 
REFERENCE_NUMBER.  THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN 
80-COLUMN  FORMAT  AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 

READY  REFERENCES  SHARED  READ 
JCNT  = 0 

FOR  REFERENCES  JCNT  = JCNT  + 1 
CAL  = MNOWH 

ON  DEVS206: [BCDSSME2.LISTS]LIST_REF.LST 
BEGIN 

ICNT  = 1 
KCNT  = 1 

FOR  REFERENCES  SORTED  BY  REFERENCE_NUMBER 
BEGIN 

IF  KCNT  = 1 THEN  PRINT  NEW_PAGE , 

COL  1,  "Domain  REFERENCES", 
COL  64,  CAL  (-)  USING  X(17) 

PRINT  SKIP  4, 

COL  1,  "RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZZZ9,  SPACE  1, 

"nF"  ^PAPF  1 

JCNT  (-)  USING  ZZZZ9,  SKIP  1,’ 

COL  1,  ■•============================«====== 

SPACE  0, 


SKIP  2, 

COL  1,  "DATE_CREATED  :",  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 

COL  1,  "REFERENCEJUMBER  SPACE  1, 

REFERENCE_NUMBER  (-)  USING  X(5),  SKIP  1, 
COL  1,  "AUTH0R1  SPACE  1, 

AUTH0R1  (-)  USING  X(25),  SKIP  1, 

COL  1,  "AUTH0R2  SPACE  1, 

AUTH0R2  (-)  USING  X(25),  SKIP  1, 

COL  1,  "AUTH0R3  SPACE  1, 

AUTH0R3  (-)  USING  X(25),  SKIP  1, 

COL  1,  "AUTH0R4  SPACE  1, 


0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 


E-17 


Datatrieve  Command  File  LIST_REF_2.COM  (cont.) 


AUTH0R4  (-)  USING  X(25),  SKIP  1, 

COL  1,  "DOCUMENT_TITLE  SPACE  1, 

DOCUMENT_TITLE  (-)  USING  T(58),  SKIP  1, 

COL  1,  "DOCUMENT_SOURCE  :\  SPACE  1, 

DOCUMENT_SOURCE  (-)  USING  X(30),  SKIP  1, 

COL  1,  "DOCUMENT_NUMBER  SPACE  1, 

DOCUMENT_NUMBER  (-)  USING  X( 30),  SKIP  1, 

COL  1,  "DOCUMENT_DATE  SPACE  1, 

DOCUMENT_DATE  (-)  USING  X(ll),  SKIP  1, 

COL  1,  "CONTRACT_NUMBER  SPACE  1, 

CONTRACT_NUMBER  (-)  USING  X(20),  SKIP  1, 

COL  1,  " DATE_LAST_MOD  I F I ED  :\  SPACE  1, 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 
COL  1,  "MOD I F Y I NG_PROCEDURE  SPACE  1, 

MODIFYING_PROCEDURE  (-)  USING  X(20),  SKIP  2, 
COL  1,  ••========================================", 

SPACE  0, 


ICNT  = ICNT  + 1 
KCNT  = KCNT  + 1 
IF  KCNT  = 3 THEN  KCNT  = 1 
END 
END 
EXIT 
S EXIT 


0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 
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Datatrieve  Command  File  LIST_SYS_1.COM 


DECLARE  ICNT  PIC  9(5).  0422 

DECLARE  JCNT  PIC  9(5).  0423 

DECLARE  KCNT  PIC  9(5).  0424 

READY  SYSTEMS  SHARED  READ  0425 

ICNT  = 0 ■ 0426 

FOR  SYSTEMS  ICNT  = ICNT  + 1 042? 

JCNT  = ICNT  / 2 0428 

KCNT  = JCNT  * 2 0429 

IF  KCNT  LT  ICNT  THEN  JCNT  = JCNT  + 1 0430 

:CLRSCRN  043i 

PRINT  SKIP  3,  0432 

"Domain  SYSTEMS  contains",  SPACE  1,  0433 

ICNT  (-)  USING  ZZZZ9,  SPACE  1,  "records.",  SKIP  2,  0434 

"With  2 records  per  page  the  resulting  file",  SKIP  1,  0435 

"will  contain",  SPACE  1,  JCNT  (-)  USING  ZZZZ9,  SPACE  1,  0436 

"pages."  0437 

EXIT  0438 


E-19 


Datatrieve  Command  File  LIST  SYS  2. COM 


$ DTR32 
SET  NO  PROMPT 


PROCEDURE  TO  LIST  THE  RECORDS  IN  DOMAIN  SYSTEMS  TO  A FILE  FOR 
PRINTING.  THE  RECORDS  ARE  SORTED  IN  ASCENDING  ORDER  OF  THE  FIELD 
SYSTEM.  THE  RESULTING  FILE  IS  DESIGNED  TO  BE  PRINTED  IN  AN  80-COLUMN 
FORMAT  AND  HAS  NO  MORE  THAN  60  LINES  PER  PAGE. 


DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

DECLARE  CAL  USAGE  DATE 

EDIT  STRING  X(23). 

READY  SYSTEMS  SHARED  READ 
JCNT  = 0 

FOR  SYSTEMS  JCNT  = JCNT  + 1 
CAL  = "NOW 

ON  DEVJ206 : [ BCDSSME2 . LISTS ] L IST_SYS . LST 
BEGIN 

ICNT  = 1 
KCNT  = 1 

FOR  SYSTEMS  SORTED  BY  SYSTEM 
BEGIN 

IF  KCNT  * 1 THEN  PRINT  NEW_PAGE , 

COL  1,  "Domain  SYSTEMS", 

COL  64,  CAL  (-)  USING  X(17) 

PRINT  SKIP  4, 


COL  1, 


COL  1, 


COL  1, 
COL  1, 
COL  1, 
COL  1, 


"RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZ2Z9,  SPACE  1, 

"OF"  SPACE  1 

JCNT  (-)  USING  ZZZZ9,  SKIP  l] 

SPACE  0, 

SKIP  2, 

"DATE  CREATED  :\  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 

"SYSTEM  SPACE  1, 

SYSTEM  (-)  USING  X(4),  SKIP  1, 

"SYSTEM_NAME  :",  SPACE  1, 

SYSTEM_NAME  (-)  USING  T(58),  SKIP  1, 

"FMEA  ITEMS  :", 

COL  23,  " 1)",  SPACE  1,  ITEM1  (-)  USING  X(4), 

COL  42,  " 6)",  SPACE  1,  ITEM6  (-)  USING  X(4), 

COL  61,  "11)",  SPACE  1,  ITEM11  (-)  USING  X(4), 

SKIP  1. 
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Datatrieve  Command  File  LIST_SYS_2.COM  (cont.) 


COL  23,  " 2)",  SPACE  1,  ITEM2  (-)  USING  X(4),  0490 

COL  42,  " 7)",  SPACE  1,  ITEM7  (-)  USING  X(4),  049i 

COL  61,  "12)",  SPACE  1,  ITEM12  (-)  USING  X(4),  0492 

SKIP  1,  0493 

COL  23,  " 3)",  SPACE  1,  ITEM3  (-)  USING  X(4),  0494 

COL  42,  " 8)",  SPACE  1,  ITEM8  (-)  USING  X(4),  0495 

COL  61,  "13)",  SPACE  1,  ITEM13  (-)  USING  X(4),  0496 

SKIP  1,  0497 

COL  23,  " 4)",  SPACE  1,  ITEM4  (-)  USING  X(4),  0498 

COL  42,  " 9)",  SPACE  1,  ITEM9  (-)  USING  X(4),  0499 

COL  61,  "14)",  SPACE  1,  ITEM14  (-)  USING  X(4),  osoo 

SKIP  1,  osoi 

COL  23,  " 5)",  SPACE  1,  ITEMS  (-)  USING  X(4),  0502 

COL  42,  "10)",  SPACE  1,  ITEM10  (-)  USING  X(4),  0503 

COL  61,  "15)",  SPACE  1,  ITEM15  (-)  USING  X(4),  0504 

SKIP  1,  0505 

COL  1,  "REFERENCES  :\  osoe 

COL  23,  " 1)",  SPACE  1,  REFERENCE1  (-)  USING  X(5),  oso? 

COL  42,  “ 5)",  SPACE  1,  REFERENCES  (-)  USING  X(5),  osos 

COL  61,  " 9)",  SPACE  1,  REFERENCE9  (-)  USING  X(5),  0509 

SKIP  1,  osio 

COL  23,  " 2)",  SPACE  1,  REFERENCE2  (-)  USING  X(5),  osn 

COL  42,  " 6)",  SPACE  1,  REFERENCE6  (-)  USING  X(5),  0512 

COL  61,  ”10)",  SPACE  1,  REFERENCE10  (-)  USING  X(5),  0513 

SKIP  1,  0514 

COL  23,  " 3)",  SPACE  1,  REFERENCE3  (-)  USING  X(5),  osis 

COL  42,  " 7)",  SPACE  1,  REFERENCE7  (-)  USING  X(5),  osie 

SKIP  1,  0517 

COL  23,  " 4)",  SPACE  1,  REFERENCE4  (-)  USING  X(5),  osis 

COL  42,  " 8)",  SPACE  1,  REFERENCES  (-)  USING  X(5),  osis 

SKIP  1,  0520 

COL  1,  "PROPAGATIONS_FILE_" , SKIP  1,  0521 

COL  1,  " CREATED  SPACE  1,  0522 

PROPAGAT I ONS_F I LE_CREATED  (-)  USING  X(3),  SKIP  1,  0523 

COL  1,  "DATE _LAST_MODIFIED  SPACE  1,  0524 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  0525 

COL  1,  "MOD I F Y I NG_PROCEDURE  :",  SPACE  1,  0526 

MOD I FY ING_PROCEDURE  (-)  USING  X(20),  SKIP  2,  0527 

COL  1,  "========================================",  0528 

SPACE  0,  0529 

"========================================''  0530 

ICNT  = ICNT  + 1 0531 

KCNT  = KCNT  + 1 0532 

IF  KCNT  = 3 THEN  KCNT  = 1 0533 

END  0534 

END  0535 

EXIT  0536 

$ EXIT  0537 
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Datatrieve  Command  File  MODIFY_FIP.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] MOD I F Y_F I P . LST  0538 

DECLARE  CAL  USAGE  DATE  EDI T_STRING  X(23).  0539 

CAL  = "NOW"  0540 

PRINT  NEW_PAGE  054 i 

rCLRSCRN  0542 

PRINT  SKIP  2,  0543 

" MODIFY  PROPAGATIONS",  SKIP  2,  0544 

======== ======== =",  SKIP  2,  0545 

=====  START:  ",  SPACE  0,  0546 

CAL  (-)  USING  X(17),  0547 

SPACE  0,  " =====",  SKIP  2,  0548 

"=======================================",  SKIP  3 0549 

:FIP_MODIFY  osso 

CAL  = "NOW"  0551 

PRINT  NEW_PAGE  0552 

:CLRSCRN  0553 

PRINT  SKIP  2,  0554 

" MODIFY  PROPAGATIONS",  SKIP  2,  0555 

= = « = ===  ====  = «=«»:“,  SKIP  2,  0556 

"=====  END:  ",  SPACE  0,  0557 

CAL  (-)  USING  X( 17) , 0558 

SPACE  0,  " =====",  SKIP  2,  0559 

«=Sr==r=SS=S=s==S====SSr=S=SSSSr=SSaSr«>  SKIP  3 0560 

CLOSE  0561 

RELEASE  0562 

FINISH  0563 

EXIT  0564 
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Datatrieve  Command  File  MODIFY  FM.COM 


OPEN  DEVJ206 : [ BCDSSME2 . LOGS ] MOD I F Y_FM . LST  0565 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0566 

CAL  = "NOW"  0567 

PRINT  NEW_PAGE  0568 

:CLRSCRN  0569 

PRINT  SKIP  2,  0570 

" MODIFY  FAILURE  MODES",  SKIP  2,  0571 

"=======================================",  SKIP  2,  0572 

"=====  START:  ",  SPACE  0,  0573 

CAL  (-)  USING  X( 17) , 0574 

SPACE  0,  " =====",  SKIP  2,  0575 

11 ===========================  ======  ======"  , SKIP  3 0576 

:FM_MODIFY  0577 

CAL  = "NOW"  0578 

PRINT  NEW_PAGE  0579 

:CLRSCRN  oseo 

PRINT  SKIP  2,  058i 

" MODIFY  FAILURE  MODES",  SKIP  2,  0582 

»=====================================••,  SKIP  2,  0583 

"=====  END:  ",  SPACE  0,  0584 

CAL  (-)  USING  X( 17)  , 0585 

SPACE  0,  " =====",  SKIP  2,  0586 

••=====================================",  SKIP  3 0587 

CLOSE  0588 

RELEASE  0589 

FINISH  0590 

EXIT  0591 
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Datatrieve  Command  File  MODIFY_MOD.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] MOD I F Y_M0D . LST  0592 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0593 

CAL  = "NOW"  0594 

PRINT  NEW_PAGE  - 0595 

: CLRSCRN  0596 

PRINT  SKIP  2,  0597 

" MODIFY  MODULES",  SKIP  2,  0598 

SKIP  2,  0599 

=====  START:  ",  SPACE  0,  oeoo 

CAL  (-)  USING  X( 17 ) , oeoi 

SPACE  0,  ” =««•',  SKIP  2,  0602 

===== ===«',  SKIP  3 0603 

:MOD_MODIFY  0604 

CAL  = "NOW"  0605 

PRINT  NEW_PAGE  oeoe 

: CLRSCRN  0607 

PRINT  SKIP  2,  oeoe 

" MODIFY  MODULES",  SKIP  2,  0609 

•=====================================",  SKIP  2,  06io 

=====  END:  ",  SPACE  0,  oeii 

CAL  (-)  USING  X( 17 ) , 0612 

SPACE  0,  " ===«",  SKIP  2,  0613 

»=====================================",  SKIP  3 0614 

CLOSE  0615 

RELEASE  0616 

FINISH  0617 

EXIT  0618 


E-24 


Datatrieve  Command  File  MODIFY_REF.COM 


OPEN  DEVJ206 : [ BCDSSME2 . LOGS ] MOD I FY_REF . LST  oeis 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0620 

CAL  = "NOW  062i 

PRINT  NEWPAGE  0622 

rCLRSCRN  ' 0623 

PRINT  SKIP  2;  0624 

- MODIFY  REFERENCES",  SKIP  2,  _ 0625 

"=====  START:  ",  SPACE  0,  * 062? 

CAL  (-)  USING  X( 17)  , 0628 

SPACE  0,  " =====",  SKIP  2,  0629 

"=============================*=========",  SKIP  3 0630 

:REF_MODIFY  063i 

CAL  = "NOW  0632 

PRINT  NEW_PAGE  0633 

: CLRSCRN  0634 

PRINT  SKIP  2,  0635 

" MODIFY  REFERENCES",  SKIP  2,  0636 

»=====================================" , SKIP  2,  0637 

"=====  END:  ",  SPACE  0,  0638 

CAL  (-)  USING  X(17)  , 0639 

SPACE  0,  “ =====",  SKIP  2 , 0640 

===== SKIP  3 0641 

CLOSE  0642 

RELEASE  0643 

FINISH  0644 

EXIT  0645 


E-25 


Datatrieve  Command  File  MODIFY_SYS.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] MOD I FY_SYS . LST  0646 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0647 

CAL  = "NOW"  0648 

PRINT  NEW_PAGE  0649 

: CLRSCRN  0650 

PRINT  SKIP  2,  065i 

" MODIFY  SYSTEMS",  SKIP  2,  0652 

SKIP  2,  0653 

"=====  START:  ",  SPACE  0,  0654 

CAL  (-)  USING  X( 17 ) , oess 

SPACE  0,  " =====",  SKIP  2,  0656 

SKIP  3 0657 

:SYS_MODIFY  0658 

CAL  = "NOW"  0659 

PRINT  NEW_PAGE  0660 

: CLRSCRN  066 i 

PRINT  SKIP  2,  0662 

" MODIFY  SYSTEMS",  SKIP  2,  0663 

»=======s====s===============::s===s==s«>  SKIp  2j  0664 

"=====  END:  ",  SPACE  0,  0665 

CAL  (-)  USING  X( 17) , 0666 

SPACE  0,  " =====",  SKIP  2,  0667 

„==================„==s==============„  SKIp  3 0668 

CLOSE  0669 

RELEASE  0670 

FINISH  067i 

EXIT  0672 
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Datatrieve  Command  File  STORE_CON.COM 


OPEN  DEVS206: [BCDSSME2.L0GS]ST0RE_C0N.LST 
DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23). 
CAL  = "NOW" 

PRINT  NEW_PAGE 
:CLRSCRN 
PRINT  SKIP  2, 

" STORE  CONNECTIONS",  SKIP  2, 


"=======================================",  SKIP  2, 

"=====  START:  ",  SPACE  0, 

CAL  (-)  USING  X( 17 ) , 

SPACE  0,  " =====",  SKIP  2, 

=======================================,  SKIP  3 


: CON_STORE 
CAL  = "NOW" 

PRINT  NEW_PAGE 
:CLRSCRN 
PRINT  SKIP  2, 

" STORE  CONNECTIONS",  SKIP  2, 
"=====================================",  SKIP  2, 

=====  END:  ",  SPACE  0, 

CAL  (-)  USING  X( 17) , 

SPACE  0,  " =====",  SKIP  2, 

"=====================================",  SKIP  3 

CLOSE 

RELEASE 

FINISH 

EXIT 


0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 


E-27 

Datatrieve  Command  File  STORE_FIP.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] ST0RE_F I P . LST  0700 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  o?oi 

CAL  = "NOW  0702 

PRINT  NEW_PAGE  0703 

:CLRSCRN  0704 

PRINT  SKIP  2,  0705 

" STORE  PROPAGATIONS",  SKIP  2,  0706 

H=  = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =l,  SKJp  2^  070? 

"=====  START:  ",  SPACE  0,  0708 

CAL  (-)  USING  X( 17) , 0709 

SPACE  0,  " =====",  SKIP  2,  0710 

■•=======================================■■,  SKIP  3 07ii 

:FIP_STORE  0712 

CAL  = "NOW"  0713 

PRINT  NEW_PAGE  0714 

:CLRSCRN  07is 

PRINT  SKIP  2,  0716 

" STORE  PROPAGATIONS",  SKIP  2,  0717 

.,=====================================„  SKIp  2>  0718 

"=====  END:  ",  SPACE  0,  0719 

CAL  (-)  USING  X(17) , 0720 

SPACE  0,  " =====",  SKIP  2,  0721 

••  = ======  ================  = =============■•,  SKIP  3 0722 

CLOSE  0723 

RELEASE  0724 

FINISH  0725 

EXIT  0726 


E-28 


Datatrieve  Command  File  STORE_FM.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS] ST0RE_FM . LST  0727 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0728 

CAL  = "NOW”  0729 

PRINT  NEW_PAGE  0730 

:CLRSCRN  ~ 0731 

PRINT  SKIP  2,  0732 

" STORE  FAILURE  MODES",  SKIP  2,  0733 

"=======================================",  SKIP  2,  0734 

"=====  START:  ",  SPACE  0,  0735 

CAL  (-)  USING  X( 17 ) , 0736 

SPACE  0,  " =====",  SKIP  2,  0737 

SKIP  3 0738 

: FM_STORE  0739 

CAL  = "NOW"  0740 

PRINT  NEW_PAGE  0741 

:CLRSCRN  0742 

PRINT  SKIP  2,  0743 

" STORE  FAILURE  MODES",  SKIP  2,  0744 

SKIP  2,  0745 

"=====  END:  ",  SPACE  0,  0746 

CAL  (-)  USING  X( 17) , 0747 

SPACE  0,  " =====",  SKIP  2,  0748 

«SSS  = Sr=:SrS  = ==Srs::S  = SrSr=S  = S3SSrSrSr  = »,  SKIP  3 0749 

CLOSE  0750 

RELEASE  0751 

FINISH  0752 

EXIT  0753 


E-29 


Datatrieve  Command  File  STORE_MOD.COM 


OPEN  DEVS206: [BCDSSME2. LOGS] STORE  MOD.LST 

0754 

DECLARE  CAL  USAGE  DATE  EDIT  STRING  X(23). 

0755 

CAL  = "NOW" 

0756 

PRINT  NEW  PAGE 

0757 

rCLRSCRN 

0758 

PRINT  SKIP  2, 

0759 

" STORE  MODULES",  SKIP  2, 

0760 

"==================================: 

-===",  SKIP  2, 

0761 

"=====  START:  ",  SPACE  0, 

0762 

CAL  (-)  USING  X( 17 ) , 

0763 

SPACE  0,  " =«==",  SKIP  2, 

0764 

"=================================== 

====",  SKIP  3 

0765 

:MOD  STORE 

0766 

CAL  = "NOW" 

0767 

PRINT  NEW  PAGE 

0768 

rCLRSCRN 

0769 

PRINT  SKIP  2, 

0770 

" STORE  MODULES",  SKIP  2, 

0771 

"=================================== 

==",  SKIP  2, 

0772 

END:  ",  SPACE  0, 

0773 

CAL  (-)  USING  X( 17 ) , 

0774 

SPACE  0,  " =====",  SKIP  2, 

0775 

==",  SKIP  3 

0776 

CLOSE 

0777 

RELEASE 

0778 

FINISH 

0779 

EXIT 

0780 

E-30 


Datatrieve  Command  File  STORE_REF.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] ST0RE_REF . LST  0781 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  0782 

CAL  = "NOW"  0783 

PRINT  NEW_PAGE  0784 

:CLRSCRN  0785 

PRINT  SKIP  2,  • 0786 

11  STORE  REFERENCES",  SKIP  2,  0787 

"====  ====  = = =====—====  ====  =====  = ========»,  SKIP  2,  0788 

"=====  START:  ",  SPACE  0,  0789 

CAL  (-)  USING  X( 17 ) , 0790 

SPACE  0,  " =====",  SKIP  2,  0791 

= = = = S = = = = = = = = = r = = = = = = = , = = = = = = r = SKIP  3 0792 

:REF_STORE  0793 

CAL  = "NOW"  0794 

PRINT  NEW_PAGE  0795 

•.CLRSCRN  0796 

PRINT  SKIP  2,  0797 

" STORE  REFERENCES",  SKIP  2,  0798 

=«=««",  SKIP  2,  0799 

"=====  END:  ",  SPACE  0,  oeoo 

CAL  (-)  USING  X( 17) , osoi 

SPACE  0,  " =====",  SKIP  2,  0802 

'=====================================',  SKIP  3 0803 

CLOSE  0804 

RELEASE  0805 

FINISH  0806 

EXIT  0807 
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Datatrieve  Command  File  STORE_SYS.COM 


OPEN  DEVS206 : [ BCDSSME2 . LOGS ] STORE_SYS . LST  oeoe 

DECLARE  CAL  USAGE  DATE  EDIT_STRING  X(23).  osoe 

CAL  = "NOW"  osio 

PRINT  NEW_PAGE  osn 

:CLRSCRN  08 12 

PRINT  SKIP  2,  0813 

" STORE  SYSTEMS",  SKIP  2,  0814 

"=======================================",  SKIP  2,  0815 

"=====  START:  ",  SPACE  0,  osie 

CAL  (-)  USING  X( 17 ) , osi? 

SPACE  0,  " =====",  SKIP  2,  osie 

" = « =================  =============",  SKIP  3 0819 

:SYS_STORE  0820 

CAL  = "NOW"  0821 

PRINT  NEW_PAGE  0822 

: CLRSCRN  0823 

PRINT  SKIP  2,  0824 

" STORE  SYSTEMS",  SKIP  2,  0825 

"=====================================" , SKIP  2,  0826 

"=====  END:  ",  SPACE  0,  0827 

CAL  (-)  USING  X( 17 ) , 0828 

SPACE  0,  " =====",  SKIP  2,  0829 

:======  ===:«:===«=*,  SKIP  3 0830 

CLOSE  . 083i 

RELEASE  0832 

FINISH  0833 

EXIT  0834 
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APPENDIX  F 


FIPM  DATATRIEVE  PROCEDURES 


F-l 


NOTE 

The  character  strings  "<ESO"  and  "tG"  appear  in  some  of  the  following 

procedures.  These  strings  represent  the  ASCII  escape  and  bell  characters 

respectively.  They  are  actually  single  characters  which  can  be  observed 

* 

only  while  editing  the  appropriate  file  using  the  VAX  EDT  editor.  To  insert 
these  characters  in  a file,  the  EDT  special  insert  (SPECINS)  function  must 
be  used. 

Datatrieve  Procedure  Page 

BELL F-3 

CLRSCRN  F-4 

C0N.ST0RE  F-5 

CREATE_CONNECTIONS  F-15 

CREATE_CONNECTIONS_FORM  F-16 

CREATE_FAI LUREMODES  F-17 

CREATE_FAI LUREM0DES_F0RM  F-18 

CREATE_MODULES F-19 

CREATE_MODULES_FORM  F-20 

CREATE_PROPAGATIONS  F-21 

CREATE_PR0PAGATI0NS_FIP_1  F-22 

CREATE_PR0PAGATI0NS_FIP_2  F-23 

CREATE_PROPAGATIONS_FORM  F-24 

CREATE_PROPAGATIONS_SYS_I  F-25 

CREATE_PROPAGATIONS_SY  S_2  F-26 

CREATE.REFERENCES  F-27 

CREATE_REFERENCES_FORM  F-28 

CREATE_SYSTEMS  F-29 

CREATE_SYSTEMS_FORM  F-30 

DTR.NULL F-3 1 

FIPLOGICALC  F-32 


F-2 


FIPLOGICALD  F-33 

FIP.COUNT  F-34 

FIP_COUNT_l  . F-35 

FIP_C0UNT_2  F-36 

FIP_LIST_1 F-37 

FIP_LIST_2 F-38 

FIP_LIST_3 F-39 

FIP_LIST_4 F-40 

FIP.MODIFY F-42 

FIP_MODIFY_l  F-48 

FIP_M0DIFY_2  F-52 

FIP_MODIFY_3  F-70 

FIP_M0DIFY_4  F-72 

FIP.STORE  f-82 

FIP_STORE_l  F-87 

FIP_STORE_2  F-89 

FM.MODIFY  F-101 

FM_MODIFY_l  F-120 

FM_STORE F- 133 

HDR  F-149 

MOD.MODIFY F-150 

MOD_MODIFY_l  F-162 

MOD.STORE  F-171 

PRNTOFF  F- 180 

PRNTON F- 181 

REF.MODIFY F-182 

REF_M0DIFY_1  F-196 

REF.STORE  F-205 

S132 F-217 

S80  F-218 

SYS_MODIFY F-219 

SYS_M0DIFY_1 F-231 

SYS_M0DIFY_2  F-233 

SYS_STORE  F-247 
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Datatrieve  Procedure  BELL 


DEFINE  PROCEDURE  BELL  0001 

! 0003 

! THIS  PROCEDURE  SOUNDS  THE  TERMINAL  BELL  BY  PRINTING  A SPECIAL  CHARACTER  0004 

! 0005 

! THE  CHARACTER  USED  IS  "tG“  WHICH  CORRESPONDS  TO  [CTRL/G] . THIS  CHARACTER  oooe 

! MUST  BE  INSERTED  IN  THE  PROCEDURE  USING  THE  EDT  OR  TPU  EDITORS  SPECINS  0007 

! FEATURE.  oooe 

! 0009 

ON  TT : 0011 

PRINT  MtG"  0012 

END-PROCEDURE  0013 
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Datatrieve  Procedure  CLRSCRN 


DEFINE  PROCEDURE  CLRSCRN  ooi4 

! 0015 

! 0016 

! 0018 

! PROCEDURE  TO  CLEAR  THE  TERMINAL  SCREEN  AND  POSITION  THE  CURSOR  IN  THE  0019 

! UPPER  LEFT  HAND  CORNER.  TO  ACCOMPLISH  THIS  OBJECTIVE,  TWO  ANSI  ESCAPE  0020 

! SEQUENCES  ARE  PRINTED  TO  THE  TERMINAL.  THE  ESCAPE  SEQUENCES  ARE  AS  0021 

! FOLLOWS:  0022 

! 0023 

! 1.  <ESC>  [ 2 J (CLEARS  THE  SCREEN)  0024 

! 0025 

! 2.  <ESC>  [ 1 ; 1 H (POSITIONS  THE  CURSOR  AT  LINE  1;  COLUMN  1)  0026 

! 0027 

! 0029 

ON  TT : 0030 

PRINT  "<ESC>[2J",  "<ESC>[1;1H"  0031 

END-PROCEDURE  0032 
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Datatrieve  Procedure  CON  STORE 


I 

I 


I 

I 


DEFINE  PROCEDURE  C0N_ST0RE  0033 

! 0034 

! 0035 

! ’ 0037 

! VARIABLES  ASSOCIATED  WITH  THE  SIX  INPUT  FIELDS  FOR  0038 

! DOMAIN  CONNECTIONS  0039 

! 1.  SY$TEM_A  0040 

! 2.  MODULE_A  0041 

! 3.  CONNECTION  0042 

! 4.  UNANT I C I PATED_CONNECT ION  0043 

! 5.  SYSTEM J 0044 

! 6.  MODULEJ  0045 

! 0046 

! 0048 

DECLARE  TSYSTEMA  PIC  X(4).  0049 

DECLARE  TMODULEA  PIC  9(4).  ooso 

DECLARE  TTMODULEA  PIC  X(4).  0051 

DECLARE  TCONNECT  PIC  X(4).  0052 

DECLARE  TUCONNECT  PIC  X(l).  0053 

DECLARE  TSYSTEMB  PIC  X(4).  0054 

DECLARE  TMODULEB  PIC  9(4).  0055 

DECLARE  TTMODULEB  PIC  X(4).  0056 

DECLARE  TSYSTEM  PIC  X(4).  0057 

DECLARE  TMODULE  PIC  9(4).  oose 

DECLARE  TTMODULE  PIC  X(4).  0059 

! 0060 

! 0061 

! 0063 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS  0064 

! 0065 

! 0067 

DECLARE  TCONTINUE  PIC  X(l).  0068 

DECLARE  I MSG  PIC  9(2).  0069 

DECLARE  FLG1  PIC  X(l).  0070 

DECLARE  FLG2  PIC  X(l).  0071 

! 0072 

! 0073 

! 0075 

! VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM  0076 

! 0077 

! 0079 

DECLARE  TMSG  PIC  X(80).  ooso 

DECLARE  TMSG1  PIC  X(80).  ooei 

DECLARE  TMSG2  PIC  X(80).  0082 

DECLARE  TMSG 3 PIC  X(80).  0083 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


DECLARE 

TMSG4 

PIC  X(80) . 

DECLARE 

TMSG5 

PIC  X(80) . 

DECLARE 

TMSG6 

PIC  X(80) . 

DECLARE 

TMSG7 

PIC  X(80) . 

DECLARE 

TMSG8 

PIC  X(80) . 

DECLARE 

TMSG9 

PIC  X(80) . 

DECLARE 

TMSG10 

PIC  X(80) . 

DECLARE 

TMSG10A 

PIC  X(80) . 

DECLARE  TMSG11  PIC  X(80). 


VARIABLES  USED  AS  COUNTERS 


t 

DECLARE  ICNT 

PIC  9(4). 

DECLARE  JCNT 

PIC  9(4). 

DECLARE  I 

PIC  9(4). 

DECLARE  J 

i 

j 

PIC  9(4). 

| 

! VARIABLE  USED 

i 

TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 

DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  APPROPRIATE  DOMAINS,  INITIALIZE  THE  MESSAGE  VARIABLES  AND 
INITIALIZE  THE  COUNTER  (ICNT)  USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


SET  ABORT 

READY  CONNECTIONS  SHARED  WRITE 

READY  SYSTEMS  SHARED  READ 

READY  MODULES  SHARED  READ 

READY  CONNECTIONS  FORM  SHARED  READ 

TMSG1  = “ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY11 
TMSG2  = “SYSTEM  A IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS" 

TMSG3  = "MODULE  A IS  NOT  VALID  - NOT  IN  DOMAIN  MODULES  FOR  SYSTEM" 

TMSG4  = "CONNECTION  IS  NOT  VALID  - NOT  IN  TABLE  CONNECTION JABLE" 

TMSG5  = "UNANTICIPATED  CONNECTION  IS  NOT  VALID  - MUST  BE  T OR  F" 

TMSG6  = "UNANTICIPATED  CONNECTION  IS  NOT  VALID  - MUST  BE  F FOR  CONNECTION" 


0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
Oil  1 
01  12 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


I 

I 

I 


TMSG7  = "SYSTEM  B IS  NOT  VALID  --  NOT  IN  DOMAIN  SYSTEMS"  0135 

TMSG8  = "MODULE  B IS  NOT  VALID  — NOT  IN  DOMAIN  MODULES  FOR  SYSTEM"  01 36 

TMSG9  = "SYSTEM  & MODULE  B IS  NOT  VALID  — MUST  NOT  BE  SAME  AS  SYSTEM  & " | 0137 

"MODULE  A"  oi38 

TMSG10  = "CONNECTION"  0139 

TMSG10A  = "NOT  VALID  — ALREADY  IN  DOMAIN  CONNECTIONS"  0140 

TMSG11  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y,  N OR  A"  oiai 

ICNT  = 0 0142 

JCNT  =0  0143 

! 0144 

! 0145 

! 0147 

! PRIMARY  LOOP  TO  STORE  FAILUREMODES  oi48 

! 0149 

! THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS:  0150 

! 1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR  0151 

! CORRECTION  OF  INVALID  INFORMATION  0152 

! 4.  IF  TCONTINUE  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN  0153 

! CONNECTIONS  AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED  0154 

! 5.  IF  TCONTINUE  NE  "A",  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN  0155 

! CONNECTIONS  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE  0156 

! 6.  IF  TCONTINUE  = "A",  SECTION  TO  PRINT  MESSAGE  THAT  DATA  CURRENTLY  0157 

! ON  FORM  HAS  NOT  BEEN  STORED  01 58 

! 7.  IF  TCONTINUE  = "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  0159 

! PROCEDURE  OR  EXIT  TO  MENU  oieo 

! 0161 


TCONTINUE  = "Y" 

WHILE  TCONTINUE  = "Y" 
BEGIN 


LOOP  TO  DISPLAY  BLANK  TDMS  FORMS,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORMS,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


0175 

FLG1  = "N"  oi76 

I MSG  = 1 0177 

WHILE  FLG1  = "N"  01 78 

BEGIN  0179 

IF  I MSG  = 1 THEN  TMSG  = TMSG1  oiao 

IF  I MSG  = 2 THEN  TMSG  = TMSG2  oisi 

IF  I MSG  = 3 THEN  TMSG  = TMSG3  ||  " " | TSYSTEMA  01 82 

IF  I MSG  = 4 THEN  TMSG  = TMSG4  01 83 

IF  I MSG  = 5 THEN  TMSG  = TMSG5  oi84 

IF  I MSG  = 6 THEN  TMSG  = TMSG6  ||  " " | TCONNECT  oias 


0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 
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Datatrieve  Procedure  CONJTORE  (cont.) 


IF  IMSG  = 7 THEN  TMSG  = TMSG7 

IF  I MSG  = 8 THEN  TMSG  = TMSG8  1 1 " " | TSYSTEMB 

IF  IMSG  = 9 THEN  TMSG  = TMSG9 

IF  IMSG  = 10  THEN  TMSG  = TMSG10  ||  " " | TSYSTEMA  | " " | 

TTMODULEA  " M TCONNECT  11  " 

TUCONNECT  " M TSYSTEMB  " ■' 

TTMODULEB  n " TMSG10A 

IF  IMSG  = 11  THEN  TMSG  = TMSG 11 


THIS  SECTION  DISPLAYS  THE  STORE  CONNECTIONS  FORM  AND 
RETRIEVES  THE  DATA  ENTERED  ON  THE  FORM 


FOR  FIRST  1 CONNECTIONS  JORM 
BEGIN 

DISPLAY  JORM  CONNECTIONS  JTO JORM  IN 

DE VS206 : [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING 
BEGIN 

IF  IMSG  NE  1 THEN 
BEGIN 

PUTJORM  SYSTEM J = TSYSTEMA 

PUT  JORM  MODULE_A  = TMODULEA 

PUTJORM  CONNECTION  = TCONNECT 

PUTJORM  UNANTICIPATED  * TUCONNECT 

PUTJORM  SYSTEMJ  = TSYSTEMB 

PUTJORM  MODULEJ  = TMODULEB 

END 

PUTJORM  CONTINUE  = TCONTINUE 
PUTJORM  MESSAGE  = TMSG 
END  RETRIEVE  USING 
BEGIN 

TSYSTEMA  = GETJORM  SYSTEMJ 
TMODULEA  = GETJORM  MODULEJ 
TCONNECT  = GETJORM  CONNECTION 
TUCONNECT  = GETJORM  UNANTICIPATED 
TSYSTEMB  = GETJORM  SYSTEMJ 
TMODULEB  = GETJORM  MODULEJ 
TCONTINUE  = GETJORM  CONTINUE 
END 
END 

TTMODULEA  = TMODULEA 

IF  TMODULEA  LT  1000  THEN  TTMODULEA  = "0"  TTMODULEA 

IF  TMODULEA  LT  100  THEN  TTMODULEA  = H0H  TTMODULEA 

IF  TMODULEA  LT  10  THEN  TTMODULEA  = H0M  TTMODULEA 

TTMODULEB  = TMODULEB 

IF  TMODULEB  LT  1000  THEN  TTMODULEB  = "0"  TTMODULEB 

IF  TMODULEB  LT  100  THEN  TTMODULEB  = "O'*  TTMODULEB 


0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


IF  TMODULEB  LT  10  THEN  TTMODULEB  = M0M  | TTMODULEB 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TSYSTEMA  IS  IN  DOMAIN  SYSTEMS 

2.  TMODULEA  IS  IN  DOMAIN  MODULES  FOR  SYSTEM  = TSYSTEMA 

3.  TCONNECT  IS  IN  TABLE  CONNECTION JABLE 

4.  TUCONNECT  IS  MT”  OR  "Fn 

5.  TUCONNECT  IS  "F"  FOR  TCONNECT  = "MECP"  OR  "MERE" 

6.  TSYSTEMB  IS  IN  DOMAIN  SYSTEMS 

7.  TMODULEB  IS  IN  DOMAIN  MODULES  FOR  SYSTEM  = TSYSTEMB 

8.  TSYSTEMA  & TMODULEA  DO  NOT  EQUAL  TSYSTEMB  & TMODULEB 

9.  TSYSTEMA  CONCATENATED  WITH  TTMODULEA  IS  LESS  THAN 
TSYSTEMB  CONCATENATED  WITH  TTMODULEB 

10.  TSYSTEMA,  TMODULEA,  TCONNECT,  TUCONNECT,  TSYSTEMB  AND 
TMODULEB  DO  NOT  ALREADY  EXIST  IN  DOMAIN  CONNECTIONS 

11.  TCONTINUE  IS  "Y\  "N"  OR  "A" 


FLG1  = "Y" 

IF  TCONTINUE  NE  "A"  THEN 
BEGIN 

FLG2  = MN" 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEMA 
BEGIN 

FLG2  = HY" 

END 

IF  FLG2  = MN"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 2 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

FLG2  = HN" 

FOR  MODULES  WITH  SYSTEM_MODULE  = TSYSTEMA  I TTMODULEA 
BEGIN 

FLG2  = "Y" 

END 

IF  FLG2  = "N"  THEN 
BEGIN 

FLG1  = MNH 
I MSG  = 3 
END 
END 

IF  FLG1  = UYH  THEN 
BEGIN 


0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 
0287 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


IF  TCONNECT  NOT  IN  CONNECTION_TABLE  THEN  0288 

BEGIN  0289 

FLG1  * "N"  0290 

I MSG  =4  .0291 

END  0292 

END  0293 

IF  FLG1  = "Y"  THEN  0294 

BEGIN  0295 

IF  TUCONNECT  NE  "T"  AND  0296 

TUCONNECT  NE  "F"  THEN  0297 

BEGIN  0298 

FLG1  = "N"  0299 

I MSG  = 5 0300 

END  0301 

END  0302 

IF  FLG1  = "Y"  THEN  0303 

BEGIN  0304 

IF  (TCONNECT  = "MECP"  OR  0305 

TCONNECT  = "MERE")  AND  0306 

TUCONNECT  = "T"  THEN  0307 

BEGIN  0308 

FLG1  = “N"  0309 

IMSG  =6  0310 

END  0311 

END  0312 

IF  FLG1  = "Y"  THEN  03 1 3 

BEGIN  0314 

FLG2  = “N"  0315 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEMB  03 1 6 

BEGIN  0317 

FLG2  = "Y"  0318 

END  0319 

IF  FLG2  = "N"  THEN  0320 

BEGIN  0321 

FLG1  = "N"  0322 

IMSG  = 7 0323 

END  0324 

END  0325 

IF  FLG1  = "Y"  THEN  0326 

BEGIN  0327 

FLG2  * "N"  0328 

FOR  MODULES  WITH  SYSTEM_MODULE  = TSYSTEMB  | TTMODULEB  0329 

BEGIN  0330 

FLG2  = "Y"  0331 

END  0332 

IF  FLG2  = "N"  THEN  0333 

BEGIN  0334 

FLG1  = "N"  0335 

IMSG  = 8 0336 

END  0337 

0338 


END 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


IF  FLG1  = HY"  THEN  0339 

BEGIN  0340 

IF  TSYSTEMA  I TTMODULEA  = TSYSTEMB  I TTMODULEB  THEN  034 1 

BEGIN  0342 

FLG1  = "N"  0343 

IMSG  * 9 0344 

END  0345 

END  0346 

IF  FLG1  = "Y"  THEN  0347 

BEGIN  0348 

IF  TSYSTEMA  | TTMODULEA  GT  TSYSTEMB  | TTMODULEB  THEN  0349 

BEGIN  0350 

TSYSTEM  = TSYSTEMA  0351 

TMODULE  = TMODULEA  0352 

TTMODULE  = TTMODULEA  0353 

TSYSTEMA  = TSYSTEMB  0354 

TMODULEA  = TMODULEB  0355 

TTMODULEA  = TTMODULEB  0356 

TSYSTEMB  = TSYSTEM  0357 

TMODULEB  = TMODULE  0358 

TTMODULEB  = TTMODULE  0359 

END  0360 

END  036i 

IF  FLG1  = "Y"  THEN  0362 

BEGIN  0363 

FOR  CONNECTIONS  WITH  CODE_NUMBER  = TSYSTEMA  TTMODULEA  0364 

TCONNECT  TUCONNECT  0365 

TSYSTEMB  TTMODULEB  0366 

BEGIN  0367 

FLG1  = "N"  0368 

IMSG  s 10  0369 

END  0370 

END  0371 

IF  FLG1  = “Y"  THEN  0372 

BEGIN  0373 

IF  TCONTINUE  NE  "Y"  AND  0374 

TCONTINUE  NE  "N"  AND  0375 

TCONTINUE  NE  "A"  THEN  0376 

BEGIN  0377 

FLG1  = "N"  0378 

IMSG  * 11  0379 

END  0380 

END  0381 

END  0382 

END  0383 

0384 

0385 

0387 

IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  IS  STORED  IN  0388 

DOMAIN  CONNECTIONS  0389 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


IF  TCONTI.NUE  NE  “A"  THEN 
BEGIN 

CAL  = "NOW 

STORE  CONNECTIONS  USING 
BEGIN 

DATE_CREATED 

SYSTEM_A 

MODULE_A 

CONNECTION 

UNANT I C I P ATED_CONNECT I ON 
SYSTEMJ 
MODULEJ 
END 
END 


CAL 

TSYSTEMA 

TMODULEA 

TCONNECT 

TUCONNECT 

TSYSTEMB 

TMODULEB 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN 
CONNECTIONS  IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENTS  WILL 
BE  INCLUDED  IN  THE  SESSION  LOG  FILE  WHICH  IS  OPENED  BY  THE  CALLING 
COMMAND  PROCEDURE. 


IF  TCONTINUE  NE  "A"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 
FOR  CONNECTIONS  WITH  CODEJUMBER 


TSYSTEMA 

TCONNECT 

TSYSTEMB 


TTMODULEA 

TUCONNECT 

TTMODULEB 


PRINT  SKIP  3, 

COL  1,  "RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZ9,  SKIP  1, 

COL  1,  "====================",  SPACE  0, 

====================",  SPACE  0, 

» cpapp  n 


===s=====s==s=======..#  SKIP  2> 


COL  3,  "DATE_CREATED  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 
COL  3,  "SYSTEM_MODULE_A  SPACE  1, 

SYSTEM_A  (-)  USING  X(4),  SPACE  1, 

MODULE_A  (-)  USING  9(4),  SKIP  1, 

COL  3,  "CONNECTION  :",  SPACE  1, 

CONNECTION  (-)  USING  X(4),  SKIP  1, 
COL  3,  " UNANT I C I PATED_CONNECT I ON  :", 


SPACE  1, 


0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


UNANT I C I PATED_CONNECT I ON  (-)  USING  X(l),  SKIP  1, 
COL  3,  "SYSTEM_MODULE_B  SPACE  1, 

SYSTEMJ  (-)  USING  X(4),  SPACE  1, 

MODULE_B  (-)  USING  9(4),  SKIP  2, 

COL  1,  "====================",  SPACE  0, 

"====================",  SpACE  o, 

SPACE  0} 

II  = = = = = = = = = = = = = = = = = = = = II 

IF  JCNT  = 4 THEN  JCNT  = 0 
: BELL 


IF  TCONTINUE  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED.  THIS 
MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE  = "A”  THEN 
BEGIN 

JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 
PRINT  SKIP  3, 

COL  1,  ===================== ==============,  SPACE  0, 

========================================  SKIP  2, 

COL  9 "*******************************"  SKIP  2 

COL  9!  "*****  RECORD  NOT  STORED  *****'•’  SKIP  z\ 

COL  9 11  ******************************* 11  SKIP  2 

COL  l!  '========================================",  SPACE  0, 


IF  JCNT  = 4 THEN  JCNT  = 0 
END 


IF  TCONTINUE  EQUALS  "A”,  A RESPONSE  IS  REQUESTED  TO  EITHER  CONTINUE 
THE  PROCEDURE  TO  STORE  CONNECTIONS  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 
TCONTINUE  = "X" 

WHILE  TCONTINUE  NE  "Y“  AND 
TCONTINUE  NE  "N" 


0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 
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Datatrieve  Procedure  C0N_ST0RE  (cont.) 


BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  entering  CONNECTIONS?", 
SKIP  1 

TCONTINUE  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

END 

END 

END-PROCEDURE 


0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 
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Datatrieve  Procedure  CREATE_CONNECTIONS 


DEFINE  PROCEDURE  CREATECONNECTIONS  0502 

DEFINE  FILE  FOR  CONNECTIONS  KEY  = DATE_CREATED  (DUP),  0503 

KEY  = CODE_NUMBER  0504 

END-PROCEDURE  osos 
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Datatrieve  Procedure  CREATE_CONNECTIONS_FORM 


DEFINE  PROCEDURE  CREATE_CONNECTIONS_FORM  osoe 

DEFINE  FILE  FOR  CONNECTIONS  FORM  KEY  = DATE_CREATED  (DUP),  0507 

KEY  = CODE_NUMBER  obos 

END-PROCEDURE  0509 


F-17 

Datatrieve  Procedure  CREATE_FAILUREMODES 


DEFINE  PROCEDURE  CREATE_FAILUREMODES  0510 

DEFINE  FILE  FOR  FAILUREMODES  KEY  = DATE_CREATED  (DUP),  osii 

KEY  = FMCODE  0512 

0513 


END-PROCEDURE 
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Datatrieve  Procedure  CREATE_FAILUREMODES_FORM 


DEFINE  PROCEDURE  CREATE_FAI LUREM0DES_F0RM  osi4 

DEFINE  FILE  FOR  FAILUREMODES_FORM  KEY  = DATE_CREATED  (DUP),  osis 

KEY  = FMCODE  osie 

END-PROCEDURE  osi? 
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Datatrieve  Procedure  CREATE  MODULES 


DEFINE  PROCEDURE  CREATE_MODULES 

DEFINE  FILE  FOR  MODULES  KEY  = DATE_CREATED  (DUP), 

KEY  = SYSTEM  MODULE 

KEY  = SYSTEM_MODULE_NAME  (DUP) 

END-PROCEDURE 


0518 

0519 

0520 

0521 

0522 
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Datatrieve  Procedure  CREATE_MODULES_FORM 


DEFINE  PROCEDURE  CREATE_MODULES_FORM 

DEFINE  FILE  FOR  MODULES_FORM  KEY  = DATE_CREATED 

KEY  = SYSTEM_MODULE 
KEY  = S YSTEM_MODU  L E_N AME 


0523 

(DUP), 

0524 

> 

0525 

(DUP) 

0526 

0527 

END-PROCEDURE 
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Datatrieve  Procedure  CREATE_PROPAGATIONS 


DEFINE  PROCEDURE  CREATE_PROPAGAT I ONS  0528 

DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0529 

KEY  = FMCODE  (DUP),  0530 

KEY  = CODE_NUMBER  (DUP),  053i 

KEY  = SIGNAL_TYPE  (DUP)  0532 

END-PROCEDURE  0533 
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Datatrieve  Procedure  CREATE_PR0PAGATI0NS_FIP_1 


DEFINE  PROCEDURE  CREATE_PR0PAGATI0NS_FIP_1  0534 

! 0535 

! 0536 

' 0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 


! 0548 

TSYSTEM  = " " 0549 

FOR  FIRST  1 SYSTEMS  WITH  P ROP AGAT I ONS_F I LE_C RE ATED  NE  "YES"  osso 

BEGIN  0551 

TSYSTEM  = SYSTEM  0552 

END  0553 

CHOICE  0554 

TSYSTEM  NE  " " THEN  FN$CREATE_LOG( "PROC" , "CREATE_PR0PAGATI0NS_FIP_2")  0555 

TSYSTEM  = " " THEN  FN$CREATE_LOG( "PROC" , "DTR_NULL")  0556 

END_CHOICE  0557 

: PROC  0558 

END-PROCEDURE  0559 


THIS  SECTION  CHECKS  FOR  RECORDS  IN  DOMAIN  SYSTEMS  WITH 
PROPAGATIONS_F I LE_CREATED  NOT  EQUAL  TO  "YES".  A DATATRIEVE  LOGICAL  IS 
CREATED  TO  EXECUTE  ONE  OF  TWO  PROCEDURES  DEPENDING  ON  THE  RESULT  OF 
THE  SEARCH.  IF  A RECORD  IS  FOUND,  THE  PROCEDURE 
CREATE_PROP AGAT I ONS_F I P_2  IS  EXECUTED  TO  CREATE  A PROPAGATIONS  FILE 
FOR  THE  CURRENT  SYSTEM.  IF  NO  RECORD  IS  FOUND,  THE  PROCEDURE 
DTR_NULL  IS  EXECUTED  TO  CLEAR  THE  SCREEN  AND  TERMINATE  THE  PROCEDURE. 
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Datatrieve  Procedure  CREATE_PR0PAGATI0NS_FIP_2 


DEFINE  PROCEDURE  CREATE_PROPAGATIONS_FIP_2  oseo 

! 0561 

! 0562 

! 0564 

! PROCEDURE  TO  CREATE  THE  PROPAGATIONS  DOMAIN  AND  DATA  FILE  FOR  THE  0565 

! CURRENT  SYSTEM.  DATATRIEVE  LOGICALS  ARE  CREATED  TO  REPRESENT  THE  0566 

! NAMES  OF  THE  DOMAIN  AND  ASSOCIATED  DATA  FILE.  THE  DOMAIN  IS  NAMED  0567 

! " P ROP AG AT 1 0NS_X999 " WHERE  "X999"  IS  THE  CURRENT  SYSTEM.  THE  DATA  FILE  oses 

! IS  NAMED  " DEVS206 : [ BCDSSME2 . DATA] PROP AGAT I0NS_X999 " . AFTER  0569 

! CREATING  THE  DOMAIN  AND  DATA  FILE,  PROCEDURE  CREATE_PR0PAGATI0NS_FIP_1  0570 

! IS  TO  SEARCH  FOR  ADDITIONAL  SYSTEMS.  0571 

! 0572 

! 0574 

FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS,"  I TSYSTEM)  0575 

FN$CREATE_LOG("PROPAGATIONS_FILE" , 0576 

"DEV$206:[BCDSSME2. DATA] PROPAGATIONS,"  | TSYSTEM  | ".DAT")  0577 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGAT IONS_F I LE ; 0578 

DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0579 

KEY  = FMCODE  (DUP),  oseo 

KEY  = CODE_NUMBER  (DUP),  0581 

KEY  = SIGNAL_TYPE  (DUP)  0582 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM  0583 

BEGIN  0584 

CAL  = "NOW"  osss 

MODIFY  USING  0586 

BEGIN  0587 

PROPAGATIONS_FILE_CREATED  = "YES"  0588 

D ATE_LAST_MOD I F I ED  = CAL  0589 

MOD I FY INGPROCEDURE  = "FIP_STORE"  0590 

END  0591 

END  0592 

FN$DELETE_LOG( "PROPAGATIONS" ) 0593 

FN$DELETE_LOG( " P ROP AGAT I ONS_F I LE " ) 0594 

: CREATE_PR0PAGATI0NS_FIP_1  0595 

END-PROCEDURE  0596 
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Datatrieve  Procedure  CREATE_PROPAGATIONS_FORM 


DEFINE  PROCEDURE 

CREATE  PROPAGATIONS  FORM 

1 

0597 

DEFINE  FILE  FOR 

PROPAGATIONS  FORM  KEY  = DATE  CREATED 

(DUP), 

0598 

KEY  = FMCODE 

(DUP), 

0599 

KEY  = CODE  NUMBER 

(DUP), 

0600 

KEY  = SIGNAL  TYPE 

(DUP) 

0601 

END-PROCEDURE 

0602 
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Datatrieve  Procedure  CREATE_PR0PAGATI0NS_SYS_1 


DEFINE  PROCEDURE  CREATE_PROPAGATIONS_SYS_l  0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 
0617 


TSYSTEM  = " “ 0618 

FOR  FIRST  1 SYSTEMS  WITH  PROPAGAT I ONS_F I LE_CREATED  NE  "YES"  0619 

BEGIN  0620 

TSYSTEM  = SYSTEM  062 i 

END  0622 

CHOICE  0623 

TSYSTEM  NE  " " THEN  FN$CREATE_LOG ( " PROC " , "CREATE_PR0PAGATI0NS_SYS_2")  0624 

TSYSTEM  = " " THEN  FN$CREATE_LOG ( "PROC " , "DTR_NULL")  0625 

END_CHOICE  0626 

:PROC  0627 

END-PROCEDURE  0628 


THIS  SECTION  CHECKS  FOR  RECORDS  IN  DOMAIN  SYSTEMS  WITH 
PROPAGATIONS_FILE_CREATED  NOT  EQUAL  TO  "YES".  A DATATRIEVE  LOGICAL  IS 
CREATED  TO  EXECUTE  ONE  OF  TWO  PROCEDURES  DEPENDING  ON  THE  RESULT  OF 
THE  SEARCH.  IF  A RECORD  IS  FOUND,  THE  PROCEDURE 
CREATE_PR0PAGATI0NS_SYS_2  IS  EXECUTED  TO  CREATE  A PROPAGATIONS  FILE 
FOR  THE  CURRENT  SYSTEM.  IF  NO  RECORD  IS  FOUND,  THE  PROCEDURE 
DTR_NULL  IS  EXECUTED  TO  CLEAR  THE  SCREEN  AND  TERMINATE  THE  PROCEDURE. 
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Datatrieve  Procedure  CREATE_PR0PAGATI0NS_SYS_2 


DEFINE  PROCEDURE  CREATE_PR0PAGATI0NS_SYS_2  0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 


FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS,"  | TSYSTEM)  0644 

FN$CREATE_LOG ( " PROPAGAT IONS_F I LE " , 0645 

" DEVS206 : [ BCDSSME2 . DAT A ] PROP AGAT I ONS_ " | TSYSTEM  | ".DAT")  0646 

DEFINE  DOMAIN  PROPAGATIONS  USING  PROPAGATIONS_REC  ON  PROPAGAT I ONS_F I LE ; 0647 

DEFINE  FILE  FOR  PROPAGATIONS  KEY  = DATE_CREATED  (DUP),  0648 

KEY  = FMCODE  (DUP),  0649 

KEY  = CODE_NUMBER  (DUP),  oeso 

KEY  = SIGNAL  TYPE  (DUP)  oesi 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM  0652 

BEGIN  0653 

CAL  = "NOW"  0654 

MODIFY  USING  0655 

BEGIN  0656 

PROPAGAT IONS_F I LE_CREATED  = "YES"  0657 

DATE _LAST_MOD I F I ED  = CAL  0658 

MOD I F Y I NG_PROCEDURE  = "SYS_STORE"  0659 

END  0660 

END  0661 

FN$DELETE_LOG(" PROPAGATIONS")  0662 

FN$DELETE_LOG( "PROPAGATIONS_FILE" ) 0663 

: CREATE_PR0PAGATI0NS_SYS_1  0664 

END-PROCEDURE  0665 


PROCEDURE  TO  CREATE  THE  PROPAGATIONS  DOMAIN  AND  DATA  FILE  FOR  THE 
CURRENT  SYSTEM.  DATATRIEVE  LOGICALS  ARE  CREATED  TO  REPRESENT  THE 
NAMES  OF  THE  DOMAIN  AND  ASSOCIATED  DATA  FILE.  THE  DOMAIN  IS  NAMED 
" PROPAGAT I 0NS_X999 " WHERE  "X999"  IS  THE  CURRENT  SYSTEM.  THE  DATA  FILE 
IS  NAMED  "DEV$206: [BCDSSME2. DATA] PROP AGAT I 0NS_X999" . AFTER 
CREATING  THE  DOMAIN  AND  DATA  FILE,  PROCEDURE  CREATE_PR0PAGATI0NS_SYS_1 
IS  TO  SEARCH  FOR  ADDITIONAL  SYSTEMS. 
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Datatrieve  Procedure  CREATE_REFERENCES 


DEFINE  PROCEDURE  CREATE_REFERENCES  0666 

DEFINE  FILE  FOR  REFERENCES  KEY  = DATE_CREATED  (DUP),  0667 

KEY  = REFERENCE_NUMBER  , oees 

KEY  = DOCUMENT_TITLE  (DUP),  0669 

KEY  = DOCUMENT_SOURCE  (DUP)  0670 

END-PROCEDURE  067i 
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Datatrieve  Procedure  CREATE_REFERENCES_FORM 


DEFINE  PROCEDURE 

CREATE  REFERENCES  FORM 

0672 

DEFINE  FILE  FOR 

REFERENCES  FORM  KEY  = DATE  CREATED 

(DUP), 

0673 

KEY  = REFERENCE  NUMBER 

9 

0674 

KEY  = DOCUMENT  TITLE 

(DUP), 

0675 

KEY  = DOCUMENT  SOURCE 

(DUP) 

0676 

END-PROCEDURE 

0677 

F-29 


Datatrieve  Procedure  CREATE_SYSTEMS 


DEFINE  PROCEDURE  CREATE_SYSTEMS  0678 

DEFINE  FILE  FOR  SYSTEMS  KEY  = DATE_CREATED  (DUP),  0679 

KEY  = SYSTEM  , 0680 

KEY  = SYSTEM  NAME  oesi 

END-PROCEDURE  0682 
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Datatrieve  Procedure  CREATE_SYSTEMS_FORM 


DEFINE  PROCEDURE  CREATE_SYSTEMS_FORM  0683 

DEFINE  FILE  FOR  SYSTEMS_FORM  KEY  = DATE_CREATED  (DUP) , 0684 

KEY  = SYSTEM  , oeaa 

KEY  = SYSTEM_NAME  0686 

END-PROCEDURE  oea? 


Datatrieve  Procedure  DTR  NULL 


DEFINE  PROCEDURE  DTRJULL 


THIS  PROCEDURE  IS  EMPTY.  IT  CONTAINS  NO  EXECUTABLE  DATATRIEVE 
COMMANDS  OR  STATEMENTS.  IT  IS  USED  TO  TERMINATE  PROCEDURES  WHICH 
CONTAIN  DATATRIEVE  COMMANDS  AND  LOOP  BY  SUCCESSIVE  CALLS  TO  THE  SAME 
PROCEDURE. 


END-PROCEDURE 


0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 
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Datatrieve  Procedure  FIPLOGICALC 


DEFINE  PROCEDURE  FIPLOGICALC  0701 

DECLARE  SYSTEM  PIC  X(4).  o?02 

:CLRSCRN  0703 

PRINT  SKIP  4,  0704 

COL  1,  "=====  DEFINITION  OF  DTR  LOGICALS  FOR  PROPAGATIONS  AND",  SPACE  1,  0705 
"PROPAGATIONSFILE  =====",  SKIP  2 0706 

SYSTEM  = FN$UPCASE(*. "SYSTEM")  0707 

IF  FN$TRANS_LOG( "PROPAGATIONS")  NE  "PROPAGATIONS"  THEN  0708 

FN$DELETE_LOG( "PROPAGATIONS" ) 0709 

FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS_"  | SYSTEM)  0710 

IF  FN$TRANS_LOG("PROPAGATIONS_FILE")  NE  " PROPAGAT I ONS_F I LE " THEN  07ii 

FNSDELETE_LOG ( " PROPAGAT IONS_F I LE " ) 07 1 2 

FNSCREATELOG ( " PROPAGAT I ONS_F I LE " , 0713 

"DEV$206 : [ BCDSSME2 . DATA] PROPAGATIONS_"  | SYSTEM  | ".DAT")  0714 

END-PROCEDURE  07is 
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Datatrieve  Procedure  F IPLOG ICALD 


DEFINE  PROCEDURE  F IPLOG ICALD  07ie 

:CLRSCRN  0717 

PRINT  SKIP  4,  0718 

COL  1,  "=====  DELETION  OF  DTR  LOGICALS  FOR  PROPAGATIONS  AND'1,  SPACE  1,  0719 

" PROP  AG  AT  I ONS_F  I LE  «===",  SKIP  2 0720 

FN$DELETE_LOG( "PROPAGATIONS" ) 072 1 

FN$DELETE_LOG ( " PROP AGAT I ONS_F I LE " ) 0722 

END-PROCEDURE  0723 
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Datatrieve  Procedure  FIP_C0UNT 


DEFINE  PROCEDURE  FIP_COUNT 
DECLARE  ICNT  PIC  9(5). 

DECLARE  JCNT  PIC  9(5). 

DECLARE  KCNT  PIC  9(5). 

DECLARE  LCNT  PIC  9(5). 

DECLARE  MCNT  PIC  9(5). 

DECLARE  NCNT  PIC  9(5). 

DECLARE  PCNT  PIC  9(5). 

DECLARE  HSYSTEM  PIC  X(4). 

READY  SYSTEMS  SHARED  READ 
ICNT  = 0 

FOR  SYSTEMS  WITH  P ROP AG AT I ONS_F I LE_C RE ATED  = "YES" 

ICNT  = ICNT  + 1 
JCNT  = 0 
MCNT  = 0 
: CLRSCRN 

PRINT  "The  number  of  Failure  Information  Propagation",  SKIP  1, 
"records  are  as  follows:",  SKIP  1 
:FIP_COUNT_l 
PRINT  SKIP  1, 

COL  7 11  TOTAL  M 

COL  30,  MCNT  (-)  USING  ZZZ29 
NCNT  = MCNT  / 2 
PCNT  = NCNT  * 2 

IF  PCNT  LT  MCNT  THEN  PCNT  = PCNT  + 1 
PRINT  SKIP  1, 

"With  2 records  per  page  the  resulting  file",  SKIP  1, 

"will  contain",  SPACE  1,  NCNT  (-)  USING  ZZZZ9,  SPACE  1, 
"pages." 

IF  FN$TRANS_LOG( "PROPAGATIONS" ) NE  "PROPAGATIONS"  THEN 
FN$DELETE_LOG( "PROPAGATIONS" ) 

IF  FN$TRANS_LOG ( " PROP AGAT I0NS_F I LE " ) NE  "PROPAGATIONS JILE"  THEN 
FN$DELETE_LOG(  "PROPAGATIONSJILE" ) 

IF  FN$TRANS_LOG( "PROC" ) NE  "PROC"  THEN 
FN$DELETE_LOG( "PROC" ) 

END-PROCEDURE 


0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 

0742 

0743 

0744 

0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 
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Datatrieve  Procedure  FIP_C0UNT_1 


DEFINE  PROCEDURE  FIP_C0UNT_1  0760 

JCNT  = JCNT  +1  0761 

IF  JCNT  LE  ICNT  THEN  0762 

BEGIN  0763 

KCNT  = 0 0764 

FOR  SYSTEMS  WITH  0765 

PROPAGATIONS,FILE,CREATED  = "YES"  SORTED  BY  0766 

SYSTEM  0767 

BEGIN  0768 

KCNT  = KCNT  + 1 0769 

IF  KCNT  = JCNT  THEN  0770 

HSYSTEM  = SYSTEM  077i 

END  0772 

IF  FN$TRANS_LOG( "PROPAGATIONS")  NE  "PROPAGATIONS"  THEN  0773 

FN$DELETE_LOG( "PROPAGATIONS" ) 0774 

IF  FN$  TRANS,LOG ( " P ROP AGAT I ONS_F I LE " ) NE  " P ROP AGAT I ONS_F I L E " THEN  0775 

FN$DELETE_LOG( " P ROP AG AT I ONS_F I LE " ) 0776 

IF  FN$TRANS,LOG ( " PROC " ) NE  "PROC"  THEN  0777 

FN$DELETE_LOG ( " PROC " ) 0778 

FN$CREATE_LOG( "PROPAGATIONS" , "PROPAGATIONS,"  | HSYSTEM)  0779 

FN$CREATE,LOG( "PROPAGATIONS_FILE" , 0780 

"DEVS206: [BCDSSME2. DATA] PROPAGATIONS,"  | HSYSTEM  | ".DAT")  0781 

FNSCREATE_LOG( "PROC" , "FIP_C0UNT_2")  0782 

END  0783 

IF  JCNT  GT  ICNT  THEN  0784 

BEGIN  0785 

IF  FN$TRANS_LOG ( " PROC " ) NE  "PROC"  THEN  0786 

FN$DELETE_LOG("PROC")  0787 

FN$CREATE_LOG ( " PROC " , "DTR_NULL")  0788 

END  0789 

:PROC  0790 

END-PROCEDURE  0791 
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Datatrieve  Procedure  FIP_C0UNT_2 


DEFINE  PROCEDURE  FIP_C0UNT_2  0792 
READY  PROPAGATIONS  SHARED  READ  0793 
LCNT  = 0 0794 
FOR  PROPAGATIONS  LCNT  = LCNT  + 1 0795 
PRINT  COL  10,  FN$TRANS_LOG( "PROPAGATIONS")  (-)  USING  X(17),  SPACE  1,  0796 

SPACE  1,  LCNT  (-)  USING  ZZZZ9  0797 
MCNT  = MCNT  + LCNT  0798 
:FIP_C0UNT_1  0799 
END-PROCEDURE  osoo 
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Datatrieve  Procedure  FIP_LIST_1 


DEFINE  PROCEDURE  FIP_LIST_1  oeoi 

JCNT  = JCNT  + 1 0802 

IF  JCNT  LE  ICNT  THEN  0803 

BEGIN  0804 

KCNT  = 0 0805 

FOR  SYSTEMS  WITH  osoe 

PROPAGAT I ONS_F I LE_CREATED  = "YES"  SORTED  BY  0807 

SYSTEM  osoe 

BEGIN  0809 

KCNT  = KCNT  +1  08 io 

IF  KCNT  = JCNT  THEN  os i i 

HSYSTEM  = SYSTEM  08 12 

END  O813 

IF  FN$TRANS_LOG( "PROPAGATIONS")  NE  "PROPAGATIONS"  THEN  0814 

FN$DELETE_LOG ( "PROPAGAT I ONS " ) 08 1 5 

IF  FN$TRANS_LOG ("PROPAGAT I ONS_F I LE")  NE  " P ROP AGAT I ONS_F I LE " THEN  oeie 

FN$DELETE_LOG ( "PROPAGAT I ONS_F I LE " ) 08 1 7 

IF  FN$TRANS_LOG( "PROC" ) NE  "PROC"  THEN  oeie 

FN$DELETE_LOG ( " PROC " ) 0819 

FNSCREATE_LOG( "PROPAGATIONS",  "PROPAGAT I ONS_"  | HSYSTEM)  0820 

FN$CREATE_LOG ( "PROPAGAT I ONS_F I LE " , 082 1 

"DEV$206 : [ BCDSSME2 . DATA] PROP AG ATI ONS_"  | HSYSTEM  I ".DAT")  0822 

FN$CREATE_LOG ( "PROC " , "FIP_LIST_2")  0823 

END  0824 

IF  JCNT  GT  ICNT  THEN  0825 

BEGIN  0826 

IF  FN$TRANS_LOG( "PROC" ) NE  "PROC"  THEN  0827 

FN$DELETE_LOG ( "PROC " ) 0828 

FN$CREATE_LOG( "PROC" , "DTR_NULL")  0829 

END  0830 

:PROC  0831 

END-PROCEDURE  0832 
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Datatrieve  Procedure  FI P_L IST_2 

DEFINE  PROCEDURE  FIP  LIST  2 

0833 

READY  PROPAGATIONS  SHARED  READ 

0834 

LCNT  = 0 

0835 

FOR  PROPAGATIONS  LCNT  = LCNT  + 1 

0836 

MCNT  = MCNT  + LCNT 

0837 

: FI P LIST  1 

0838 

END-PROCEDURE 

0839 
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Datatrieve  Procedure  FIP_LIST_3 


DEFINE  PROCEDURE  FIP_LIST_3  0840 

JCNT  = JCNT  +1  084i 

IF  JCNT  LE  ICNT  THEN  0842 

BEGIN  0843 

KCNT  = 0 0844 

FOR  SYSTEMS  WITH  0845 

PROPAGATIONS_FILE_CREATED  = "YES"  SORTED  BY  0846 

SYSTEM  0847 

BEGIN  0848 

KCNT  = KCNT  + 1 0849 

IF  KCNT  = JCNT  THEN  osso 

HSYSTEM  = SYSTEM  osbi 

END  0852 

IF  FN$TRANS_LOG( "PROPAGATIONS")  NE  "PROPAGATIONS"  THEN  0853 

FN$DELETE_LOG( "PROPAGATIONS" ) 0854 

IF  FN$TRANS_LOG ( " PROPAGAT I ONS_F I LE " ) NE  " P ROP AGAT I ONS_F I L E " THEN  0855 

FN$DELETE_LOG ( " PROPAGAT I ONS_F I LE " ) 0856 

IF  FN$TRANS_LOG ( " P ROP AGAT I ONS_L 1ST")  NE  "PROPAGATIONS_LIST"  THEN  oes? 

FN$DELETE,LOG( "PROPAGATIONS^ I ST" ) oass 

IF  FN$TRANS_LOG ( " PROC " ) NE  "PROC"  THEN  0859 

FN$DELETE_LOG ( " PROC " ) oseo 

FN$CREATE_LOG( "PROPAGATIONS",  "PROPAGATIONS,"  I HSYSTEM)  086i 

FNSCREATE_LOG( "PROPAGATIONS_FILE" , 0862 

"DEV$206:[BCDSSME2. DATA] PROPAGATIONS,"  I HSYSTEM  I ".DAT")  0863 

FN$CREATE_LOG( " PROPAGATIONS^ I ST" , 0864 

"DEVS206: [BCDSSME2.DATAJFIP,"  HSYSTEM  I ".LST")  0865 

FNSCREATE_LOG ( " PROC " , "FIP,LIST_4")  0866 

END  ~ 0867 

IF  JCNT  GT  ICNT  THEN  oees 

BEGIN  0869 

IF  FN$TRANS_LOG ( "PROC " ) NE  "PROC"  THEN  0870 

FN$DELETE_LOG ( " PROC " ) 087 1 

FN$CREATE_LOG( "PROC" , "DTR_NULL")  0872 

END  0873 

: PROC  0874 

END-PROCEDURE  0875 
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DEFINE  PROCEDURE  FIP_LIST_4 
READY  PROPAGATIONS  SHARED  READ 
ON  PROPAGAT IONS_L 1ST 
BEGIN 
‘ PCNT  = 0 

FOR  PROPAGATIONS  SORTED  BY 
FMCODE, 

SIGNAL_TYPE, 

PARAMETER, 

DATE_CREATED 

BEGIN 

NCNT  = NCNT  + 1 
PCNT  = PCNT  + 1 
IF  PCNT  = 1 THEN 
PRINT  NEW_PAGE, 

COL  1, 

"Domain",  SPACE  1, 

FN$TRANS_LOG( "PROPAGATIONS")  (-)  USING  X(17), 
COL  63,  CAL  (-)  USING  X(I7) 

PRINT  SKIP  1, 

COL  1,  "RECORD  NO.",  SPACE  1, 

NCNT  (-)  USING  ZZZ9,  SPACE  1, 

"OF",  SPACE  1, 

MCNT  (-)  USING  ZZZ9,  SKIP  1, 

COL  1,  "======================================== 

SPACE  0, 


SKIP  2, 

COL  1,  "DATE  CREATED  SPACE  1, 

DATE~CREATED  (-)  USING  X(23),  SKIP  1, 
COL  1,  "FMCODE  :",  SPACE  1, 


SOURCESYSTEM  (-)  USING  X(4),  SPACE  1, 

SOURCE_MODULE  (-)  USING  9(4),  SPACE  1, 

FAILURE_MODE  (-)  USING  X(2),  SPACE  1, 
FAILURE_SUBMODE  (-)  USING  X(2),  SPACE  1, 
ACCOMPLICE_SYSTEM  (-)  USING  X(4),  SPACE  1, 
ACCOMPLICE_MODULE  (-)  USING  9(4),  SKIP  1, 

COL  1,  "CODE_NUMBER  SPACE  1, 

SYSTEM_A  (-)  USING  X(4),  SPACE  1, 

MODULE_A  (-)  USING  9(4),  SPACE  1, 

CONNECT ION_TYPE  (-)  USING  X(2),  SPACE  1, 

CONNECTION_QUALIFIER  (-)  USING  X(2),  SPACE  1, 

UNANT I C I PATED_CONNECT ION  (-)  USING  X(l),  SPACE  1, 

SYSTEM_B  (-)  USING  X(4),  SPACE  1, 

MODULE_B  (-)  USING  9(4),  SKIP  1, 


COL  1,  "SIGNAL_TYPE  :",  SPACE  1, 

SIGNAL_TYPE  (-)  USING  X(20),  SKIP  1, 
COL  1,  "SIGNALJJNITS  :",  SPACE  1, 

SIGNAL_UNITS  (-)  USING  X(25),  SKIP  1, 
COL  1,  "DIMENSIONS  :",  SPACE  1, 

DIMENSIONS  (-)  USING  9(1),  SKIP  1, 


0876 

0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 
8893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

091 1 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 
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COL  1,  "SIGNAL_QUALITY  SPACE  1, 

SIGNAL_QUALITY  (-)  USING  9(1),  SKIP  1, 

COL  1,  "MAX_FREQ_OR_TIME  SPACE  1, 

MAX_FREQ_OR_TIME  (-)  USING  -19,  SKIP  1, 

COL  1,  " M I N_F R EQ_OR_T I M E SPACE  1, 

MIN  FREQ_OR_TIME  (-)  USING  -19,  SKIP  1, 

COL  1,  "FTjNITS  :\  SPACE  1, 

FT_UN ITS  (-)  USING  X(25),  SKIP  1, 

COL  1,  "PARAMETER  SPACE  1, 

PARAMETER  (-)  USING  X(20),  SKIP  1, 

COL  1,  " PARAMETER JJN ITS  SPACE  1, 

PARAMETERJJNITS  (-)  USING  X(25),  SKIP  1, 

COL  1,  "SYMPTOM_DURATION  SPACE  1, 

SYMPTOM_DURATION  (-)  USING  -Z9,  SKIP  1, 

COL  1,  "PERIOD_OF_ONSET  SPACE  1, 

PERIOD_OF_ONSET  (-)  USING  -Z9,  SKIP  1, 

COL  1,  "INDICATESJAILURE  SPACE  1, 

INDICATESJAILURE  (-)  USING  X(l),  SKIP  1, 

COL  1,  "COMMENT1  SPACE  1, 

COMMENT1  (-)  USING  T(58),  SKIP  1, 

COL  1,  "COMMENT2  SPACE  1, 

C0MMENT2  (-)  USING  T(58),  SKIP  1, 

COL  1,  "COMMENT3  SPACE  1, 

COMMENT3  (-)  USING  T(58),  SKIP  1, 

COL  1,  "DATE  LAST_MODIFIED  SPACE  1, 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 
COL  1,  "MODIFYING_PROCEDURE  SPACE  1, 

MODIFYING_PROCEDURE  (-)  USING  X(20),  SKIP  2, 
COL  1,  '========================================, 

SPACE  0, 

IF  PCNT  = 2 THEN  PCNT  = 0 
END 
END 

:FIP_LIST_3 

END-PROCEDURE 


0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 

0955 

0956 

0957 

0958 

0959 

0960 

0961 

0962 
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DEFINE  PROCEDURE  FIP  MODIFY 


! VARIABLE  ASSOCIATED  WITH  SYSTEM  FOR  WHICH  FAILURE  INFORMATION 
! PROPAGATION  DATA  IS  CURRENTLY  BEING  MODIFIED 

I 

I 

DECLARE  TSYSTEM  PIC  X(4). 

I 

I 

j 

! VARIABLES  ASSOCIATED  WITH  FMCODE 

i 

J 

DECLARE  TFMCODE  PIC  X(20). 

DECLARE  TSSYS  PIC  X(4). 


VARIABLES  ASSOCIATED  WITH  CODEJWMBER 


DECLARE  TCODENO  PIC  X(21). 
DECLARE  TSYSA  PIC  X(4). 
DECLARE  TSYSMODA  PIC  X(8). 
DECLARE  TCONNECTU  PIC  X(5). 
DECLARE  TSYSB  PIC  X(4). 
DECLARE  TSYSMODB  PIC  X(8). 


VARIABLES  ASSOCIATED  WITH  OTHER  FIELDS  FOR 
DOMAIN  PROPAGATIONS: 

1.  SIGNAL_TYPE 

2.  DIMENSIONS 

3.  SIGNAL_QUALITY 

4.  MAXJREQ_OR_TIME 

5.  MINJREQ_OR_TIME 

6.  PARAMETER 

7.  SYMPTOM_DURATION 

8.  PERIOD_OF_ONSET 

9.  INDICATES JAILURE 

10.  COMMENTl 


0963 

0964 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
101  1 
1012 
1013 
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! 11.  C0MMENT2 

! 12.  C0MMENT3 

1014 

1015 

1 

1016 

I 

1017 

1018 

DECLARE  TSIG 

PIC  X(20) . 

1019 

DECLARE  TDIM 

PIC  X(l). 

1020 

DECLARE  NDIM 

PIC  9(1). 

1021 

DECLARE  TSIGQUAL 

PIC  X(l). 

1022 

DECLARE  NSIGQUAL 

PIC  9(1). 

1023 

DECLARE  TMAXFT 

PIC  X(3) . 

1024 

DECLARE  TMAXFT1 

PIC  X(l). 

1025 

DECLARE  TMAXFT2 

PIC  X(l). 

1026 

DECLARE  TMAXFT3 

PIC  X(l). 

1027 

DECLARE  NMAXFT 

PIC  S9(2). 

1028 

DECLARE  TMINFT 

PIC  X(3) . 

1029 

DECLARE  TMINFT1 

PIC  X(l). 

1030 

DECLARE  TMINFT2 

PIC  X(l). 

1031 

DECLARE  TMINFT3 

PIC  X(l). 

1032 

DECLARE  NMINFT 

PIC  S9(2). 

1033 

DECLARE  TPAR 

PIC  X(20) . 

1034 

DECLARE  TSYMDUR 

PIC  X(3). 

1035 

DECLARE  TSYMDUR1 

PIC  X(l). 

1036 

DECLARE  TSYMDUR2 

PIC  X(l). 

1037 

DECLARE  TSYMDUR3 

PIC  X(l). 

1038 

DECLARE  NSYMDUR 

PIC  S9(2) . 

1039 

DECLARE  TPDONSET 

PIC  X(3) . 

1040 

DECLARE  TPDONSET1 

PIC  X(l). 

1041 

DECLARE  TPDONSET2 

PIC  X(l). 

1042 

DECLARE  TPDONSET3 

PIC  X(l). 

1043 

DECLARE  NPDONSET 

PIC  S9(2). 

1044 

DECLARE  TINDFAIL 

PIC  X(l). 

1045 

DECLARE  TCOMMENT1 

PIC  X( 80) . 

1046 

DECLARE  TCOMMENT2 

PIC  X( 80) . 

1047 

DECLARE  TCOMMENT3 

PIC  X(80). 

1048 

DECLARE  TCOMMENT 

PIC  X(80) . 

1049 

DECLARE  TTDIM 

PIC  9(1). 

.1050 

DECLARE  TTSIGQUAL 

PIC  9(1). 

1051 

DECLARE  TTMAXFT 

PIC  S9(2) . 

1052 

DECLARE  TTMINFT 

PIC  S9(2) . 

1053 

DECLARE  TTSYMDUR 

PIC  S9(2) . 

1054 

DECLARE  TTPDONSET 

PIC  S9(2) . 

1055 

DECLARE  TTINDFAIL 

PIC  X(l). 

1056 

DECLARE  TTCOMMENT1 

PIC  X(80). 

1057 

DECLARE  TTCOMMENT2 

PIC  X(80) . 

1058 

DECLARE  TTC0MMENT3 

i 

PIC  X(80) . 

1059 

1060 

1 

1061 

• 

1062 

! 

| 

1063 

! VARIABLE  ASSOCIATED 

WITH  PROCESSING  OF  INPUTS  FOR  COMMENTS  1 

1064 
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1 

1065 

i ncc 

J 

1 UOO 

1067 

DECLARE  TEMP  PIC  X(249). 

1068 

j 

1069 

1070 

1071 


| 

! VARIABLES  USED 
1 

AS  FLAGS  OR  CONDITION  INDICATORS 

1072 

1073 

1074 

I 

1 U / D 

1076 

DECLARE  TC0NTINUE1 

PIC  X(l). 

1077 

DECLARE  TC0NTINUE2 

PIC  X(l). 

1078 

DECLARE  TC0NTINUE3 

PIC  X(l). 

1079 

DECLARE  TC0NTINUE4 

PIC  X(l). 

1080 

DECLARE  TC0NTINUE5 

PIC  X(l). 

1081 

DECLARE  I MSG 

PIC  9(2). 

1082 

DECLARE  FLG1 

PIC  X(l). 

1083 

DECLARE  FLG2 

PIC  X(l). 

1084 

DECLARE  FLG3 

PIC  X(l). 

1085 

DECLARE  FLG4 

PIC  X(l). 

1086 

DECLARE  FLG5 

PIC  X(l). 

1087 

DECLARE  FLG6 

PIC  X(l). 

1088 

j 

1089 

J 

1090 

i r\Q  i 

J 

i uy  1 
1092 

! VARIABLES  USED 

TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORMS 

1093 

J 

1094 

IftQC 

1 

i uy  o 
1096 

DECLARE  TMSG 

PIC 

X(80) . 

1097 

DECLARE  TMSG1 

PIC 

X(80). 

1098 

DECLARE  TMSG2 

PIC 

X(80). 

1099 

DECLARE  TMSG3 

PIC 

X(80) . 

1 100 

DECLARE  TMSG4 

PIC 

X(80) . 

1101 

DECLARE  TMSG5 

PIC 

X(80) . 

1 102 

DECLARE  TMSG6 

PIC 

X(80). 

1103 

DECLARE  TMSG7 

PIC 

X(80) . 

1 104 

DECLARE  TMSG8 

PIC 

X(80) . 

1 105 

DECLARE  TMSG9 

PIC 

X(80) . 

1 106 

DECLARE  TMSG10 

PIC 

X(80) . 

1 107 

DECLARE  TMSG 11 

PIC 

X(80). 

1 108 

DECLARE  TMSG12 

PIC 

X(80). 

1 109 

DECLARE  TMSG13 

PIC 

X ( 80 ) . 

1 1 10 

DECLARE  TMSG 14 

PIC 

X(80). 

1111 

DECLARE  TMSG15 

PIC 

X ( 80 ) . 

1 112 

DECLARE  TMSG16 

PIC 

X(80) . 

1 1 13 

DECLARE  TMSG 17 

PIC 

X(80). 

1 1 14 

DECLARE  TMSG18 

PIC 

X(80) . 

1 1 15 

F-45 


Datatrieve  Procedure  FIP  MODIFY  (cont.) 


DECLARE  TMSG19 
! 
i 

PIC  X(80). 

1116 
1117 
1 1 18 

i 

1119 
1 120 

! VARIABLES  USED  AS  COUNTERS  i 

1121 

J 

1 122 

J 

1123 
1 124 

DECLARE  ICNT 

PIC  9(4). 

1 125 

DECLARE  JCNT 

PIC  9(4). 

1 126 

DECLARE  KCNT 

PIC  9(4). 

1127 

DECLARE  I 

PIC  9(4). 

1128 

DECLARE  J 

PIC  9(4). 

1129 

J 

1 130 

J 

1131 

J 

1 1 32 
1 133 

! VARIABLES  USED 

TO  TEMPORARILY  STORE  FAILURE  INFORMATION  PROPAGATION 

1 134 

! DATA  FOR  COMPARISON  OF  INITIAL  AND  MODIFIED  VALUES 

1 135 

| 

1136 

J 

1 1 37 
1 138 

DECLARE  HDCREATED 

USAGE  DATE 

1 139 

EDIT  STRING  X(23). 

1 140 

DECLARE  HFMCODE 

PIC  X( 20) . 

1 141 

DECLARE  HCODENO 

PIC  X(21) . 

1 142 

DECLARE  HSIG 

PIC  X( 20) . 

1 143 

DECLARE  HSIGUNIT 

PIC  X( 25) . 

1 144 

DECLARE  HDIM 

PIC  9(1). 

1 145 

DECLARE  HSIGQUAL 

PIC  9(1). 

1 146 

DECLARE  HMAXFT 

PIC  S9(2). 

1 147 

DECLARE  HMINFT 

PIC  S9(2). 

1 148 

DECLARE  HFTUNIT 

PIC  X( 25) . 

1 149 

DECLARE  HPAR 

PIC  X(20) . 

1150 

DECLARE  HPARUNIT 

PIC  X(25). 

1 151 

DECLARE  HSYMDUR 

PIC  S9(2). 

1 152 

DECLARE  HONSET 

PIC  S9(2). 

1 153 

DECLARE  HINDFAIL 

PIC  X(l). 

1 154 

DECLARE  HCOMMENT1 

PIC  X(80) . 

1 155 

DECLARE  HCOMMENT2 

PIC  X(80) . 

1 156 

DECLARE  HCOMMENT3 

PIC  X(80) . 

1 157 

DECLARE  HDLASTMOD 

USAGE  DATE 

1 158 

EDIT  STRING  X(23). 

1159 

DECLARE  HMODPROC 

PIC  X( 20) . 

1 160 

I 

1161 

J 

1162 
4 4 CO 

} 

1 1 63 
1164 

! VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 

1 165 

! 

1 

1166 
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1 167 
1 168 
1 169 
1 170 

1171 

1172 

1173 
1 174 
1 175 

1176 

1177 

1178 
1 179 
1 180 
1 181 
1 182 
1 183 
1 184 
1 185 
1 186 
1 187 
1 188 
1 189 
1190 
1 191 
1 192 
1 193 


TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY"  ii94 

TMSG2  = "DATA  MUST  BE  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS  OR  CONTINUE  " | 1195 

"MUST  BE  N"  1196 

TMSG3  = "CODE  NUMBER  IS  NOT  VALID  — SYSTEM  A OR  SYSTEM  B MUST  BE"  1197 

TMSG4  = "CODE  NUMBER  IS  NOT  VALID  ~ NOT  IN  DOMAIN  CONNECTIONS"  ii98 

TMSG5  = "SIGNAL  QUALITY  IS  NOT  VALID  - MUST  BE  0,  1,  2,  3,  4 OR  5"  1199 

TMSG6  = "FMCODE  IS  NOT  VALID  --  SOURCE  SYSTEM  MUST  BE"  1200 

TMSG7  = "FMCODE  IS  NOT  VALID  — NOT  IN  DOMAIN  FAILUREMODES"  1201 

TMSG8  = "SIGNAL  TYPE  IS  NOT  VALID  - NOT  IN  TABLE  SIGNAL_TABLE"  1202 

TMSG9  = "DIMENSIONS  IS  NOT  VALID  - MUST  BE  1,  2 OR  3"  1203 

TMSG10  = "MAX.  FREQ/TIME  " | 1204 

"MUST  BE  LEFT-JUSTIFIED  NUMERIC  IN  RANGE  -99  TO  99  INCLUSIVE"  1205 

TMSG11  = "MIN.  FREQ/TIME  " | 1206 

"MUST  BE  LEFT-JUSTIFIED  NUMERIC  IN  RANGE  -99  TO  99  INCLUSIVE"  1207 

TMSG12  = "PARAMETER  IS  NOT  VALID  - NOT  IN  PARAMETER_TABLE"  1208 

TMSG13  = "SYMPTOM  DURATION  " | 1209 

"MUST  BE  LEFT-JUSTIFIED  NUMERIC  IN  RANGE  -99  TO  99  INCLUSIVE"  1210 

TMSG14  = "PERIOD  OF  ONSET  " | 1211 

"MUST  BE  LEFT-JUSTIFIED  NUMERIC  IN  RANGE  -99  TO  99  INCLUSIVE"  1212 

TMSG15  = "INDICATES  FAILURE  IS  NOT  VALID  - MUST  BE  T OR  F"  1213 

TMSG16  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y OR  N"  1214 

TMSG17  = "NO  RECORDS  HAVE  BEEN  FOUND  WITH  THE  DATA  INDICATED  ABOVE"  1215 

TMSG18  = "ENTER  MODIFICATIONS  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY"  1216 

TMSG19  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y,  N OR  A"  1217 


INITIALIZE  THE  MESSAGE  VARIABLES  AND  INITIALIZE  THE  COUNTER  (KCNT) 
USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


SET  ABORT 

READY  CONNECTIONS 

READY  FAILUREMODES 

READY  SYSTEMS 

READY  PROPAGATIONS  FORM 


SHARED  READ 
SHARED  READ 
SHARED  WRITE 
SHARED  READ 


I 

DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  DOMAINS  CONNECTIONS,  FAILUREMODES,  SYSTEMS,  AND 
PROPAGATIONS_FORM 
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KCNT  = 0 


THIS  SECTION  CALLS  PROCEDURE  FIP_M0DIFY_1  TO  REQUEST  A SYSTEM,  READY 
THE  CORRESPONDING  DOMAIN  AND  CALL  PROCEDURE  FIP_MODIFY_2  TO  REQUEST 
DATA  TO  IDENTIFY  THE  FAILURE  INFORMATION  PROPAGATIONS  WHICH  ARE  TO  BE 
MODIFIED  FOR  THE  DESIGNATED  SYSTEM. 


:FIP_MODIFY_l 

FN$DELETEJ_OG( "PROPAGATIONS" ) 
FN$DELETE_LOG( "PROPAGATIONS_FILE") 
FN$DELETE_LOG(,,PROCH) 

END-PROCEDURE 


1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 
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DEFINE  PROCEDURE  FIP  MODIFY  1 


LOOP  TO  REQUEST  SYSTEM  FOR  WHICH  FAILURE  INFORMATION  PROPAGATIONS 
ARE  TO  BE  MODIFIED  AND  VERIFY  THAT  THIS  SYSTEM  EXISTS  IN  DOMAIN 
SYSTEMS 


FLG1  = MN" 

TCONTINUE1  = "Y" 

WHILE  FLG1  = "N"  AND 

TCONTINUE1  = "Y" 

BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 
PRINT  SKIP  3, 

MODIFY  FAILURE  INFORMATION  PROPAGATIONS  — — ", 

SKIP  1 

TSYSTEM  = FNSUPCASE ( * . "SYSTEM" ) 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM 
FLG1  = "Y" 

IF  FLG1  = "NM  THEN 
BEGIN 

PRINT  SKIP  2,  "System",  SPACE  1,  TSYSTEM  (-)  USING  X(4), 
SPACE  1,  "is  not  defined  in  domain  SYSTEMS.",  SKIP  1 
TCONTINUE1  = "X" 

WHILE  TCONTINUE1  NE  "Y"  AND 
TCONTINUE1  NE  "N" 

BEGIN 

PRINT  SKIP  1,  "Do  you  wish  to  continue?",  SKIP  1 
TCONTINUE1  = FNSUPCASE ( * . "Y  or  N") 

PRINT  " " 


END 

IF  TCONTINUE1  = "N"  THEN 
BEGIN 

CAL  * "NOW" 

PRINT  NEW_PAGE 
: CLRSCRN 
PRINT  SKIP  3 

" MODIFY  PROPAGATIONS",  SKIP  2, 


"=====  END:  ",  SPACE  0, 

CAL  (-)  USING  X( 17 ) , 

SPACE  0,  " =====",  SKIP  2, 

ABORT 

END 


SKIP  2, 


SKIP  3 


1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 


END 
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IF  FLG1  = "Y"  THEN 
BEGIN 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM 
BEGIN 

IF  PROPAGATIONS_FILE_CREATED  NE  "YES"  THEN 
FLG1  = "N" 

END 

IF  FLG1  = "N"  THEN 
BEGIN 

PRINT  SKIP  2, 

"A  failure  information  propagation  file  has  not  been". 
Skip  i 

"created  for  System",  SPACE  1,  TSYSTEM  (-)  USING  X(4), 
SPACE  0,  SKIP  1 
TCONTINUE1  = "X" 

WHILE  TC0NTINUE1  NE  "Y"  AND 
TC0NTINUE1  NE  "NH 
BEGIN 

PRINT  SKIP  1,  "Do  you  wish  to  continue?",  SKIP  1 
TCONTINUE1  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

IF  TC0NTINUE1  = "N"  THEN 
BEGIN 

CAL  = "NOW" 

PRINT  NEW_PAGE 
:CLRSCRN 
PRINT  SKIP  3, 

" MODIFY  PROPAGATIONS",  SKIP  2, 

=====================================)  SKIP  2, 

"=====  END:  ",  SPACE  0, 

CAL  (-)  USING  X(17) , 

SPACE  0,  " =====",  SKIP  2, 
=====================================}  SKIP  3 

ABORT 

END 

END 

END 

END 


DATATRIEVE  LOG I CALS  ARE  CREATED  TO  REPRESENT  THE  NAMES  OF  THE 
PROPAGATIONS  DOMAIN  AND  DATA  FILE  ASSOCIATED  WITH  THE  CURRENT 
SYSTEM.  THE  DOMAIN  IS  NAMED  "PROPAGATIONS _X999"  WHERE  "X999" 
IS  THE  CURRENT  SYSTEM.  THE  DATA  FILE  IS  NAMED 
"DEV$206 : [ BCDSSME2 . DATA] PR0PAGATI0NS_X999.DAT" 
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IF  FN$TRANS_LOG( "PROPAGATIONS" ) NE  "PROPAGATIONS"  THEN 
FN$DELETE_LOG( "PROPAGATIONS" ) 

FN$CREATE,LOG( "PROPAGATIONS" , "PROPAGATIONS,"  | TSYSTEM) 

IF  FN$TRANS,LOG( "PROPAGATIONSFILE" ) NE  "PROPAGATIONS  FILE"  THEN 
FN$DELETE_LOG( "PROPAGATIONS_FILE" ) 

FN$CREATE_LOG(  "PROPAGATIONSJILE" , 

"DEV$206:[BCDSSME2. DATA] PROPAGATIONS,"  | TSYSTEM  | ".DAT") 


READY  THE  PROPAGATIONS  DOMAIN  FOR  THE  CURRENT  SYSTEM 


READY  PROPAGATIONS  SHARED  WRITE 


THIS  SECTION  VERIFIES  THAT  FAILURE  INFORMATION  PROPAGATIONS  EXIST  FOR 
THE  CURRENT  SYSTEM.  IF  NO  RECORDS  ARE  FOUND,  A RESPONSE  IS  REQUESTED 
TO  CONTINUE  MODIFYING  FAILURE  INFORMATION  PROPAGATIONS  FOR  A NEW 
OR  TO  EXIT  PROCEDURE. 


FLG2  = "N" 

FOR  FIRST  1 PROPAGATIONS 
BEGIN 

FLG2  = "Y" 

END 

IF  FLG2  = "N"  THEN 
BEGIN 

PRINT  SKIP  2, 

"Failure  information  propagations  have  not  been",  SKIP  1, 
"entered  for  System",  SPACE  1, 

TSYSTEM  (-)  USING  X(4),  SPACE  0, 

mm  cinp  i 

TCONTINUE2  = "X" 

WHILE  TCONTINUE2  NE  "Y"  AND 
TCONTINUE2  NE  "N" 

BEGIN 

PRINT  SKIP  1, 

"Do  you  wish  to  continue  modifying",  SKIP  1, 
"FAILURE  INFORMATION  PROPAGATIONS",  SKIP  1, 

"for  another  system?",  SKIP  1 
TCONTINUE2  = FN$UPCASE(*."Y  or  N") 

PRINT  " " 

END 
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1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 


IF  FN$TRANS_LOG ( " PROC 11 ) NE  "PROC"  THEN  FN$DELETE_LOG("PROC")  1401 

IF  FLG2  = "Y"  THEN  1402 

FN$CREATE_LOG( "PROC , "FIP_M0DIFY_2")  1403 

IF  FLG2  = "N"  AND  1404 

TC0NTINUE2  * "Y"  THEN  1405 

FN$CREATE_LOG( "PROC" , "FIP_M0DIFY_1")  i406 

IF  FLG2  = "N"  AND  1407 

TC0NTINUE2  = "N"  THEN  i408 

FN$CREATE_LOG ( " PROC " , "DTR_NULL")  1409 

: PROC  1410 

END-PROCEDURE  1411 


IF  FLG2  IS  EQUAL  TO  "Y\  PROCEDURE  FIP_M0DIFY_2  IS  CALLED  TO  REQUEST 
INPUT  OF  DATA  TO  IDENTIFY  THE  FAILURE  INFORMATION  PROPAGATIONS  TO  BE 
MODIFIED  FOR  THE  CURRENT  SYSTEM.  IF  FLG2  IS  "N"  AND  TC0NTINUE2  IS 
"Y",  PROCEDURE  FIP_M0DIFY_1  IS  CALLED  TO  REQUEST  A NEW  SYSTEM.  IF 
FLG2  IS  "N"  AND  TC0NTINUE2  IS  "N",  PROCEDURE  DTRJULL  IS  CALLED  TO 
TERMINATE  MODIFYING  FAILURE  INFORMATION  PROPAGATIONS. 
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DEFINE  PROCEDURE  FIPJOIFYJ 


PRIMARY  LOOP  TO  MODIFY  PROPAGATIONS 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  SEARCH  DATA,  TEST  VALUES,  PROMPT  FOR  CORRECTION 
OF  INVALID  INFORMATION  AND  COUNT  THE  RECORDS  WHICH  MATCH  THE 
SPECIFIED  INPUT  FIELDS 

2.  IF  TC0NTINUE3  NE  MN" , SECTION  TO  DISPLAY  THE  MATCHING  RECORDS 
ONE  AT  A TIME  FOR  POSSIBLE  MODIFICATION  (THIS  SECTION  IS 
TERMINATED  WHEN  TCONTINUE4  = "N") 

3.  IF  TCONTINUE3  = "N\  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
MODIFYING  DATA  FOR  CURRENT  SYSTEM 

4.  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  PROCEDURE  OR  EXIT  TO 
MENU 


TCONTINUE3  = "Y" 

WHILE  TCONTINUE3  = "Y" 
BEGIN 


LOOP  TO  DISPLAY  BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON 
ON  THE  FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF 
INVALID  DATA 
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1444 


FLG3  = "N" 

I MSG  = 1 

WHILE  FLG3  = "N" 


BEGIN 

IF 

I MSG 

_ 

1 

THEN 

TMSG 

- 

TMSGl 

IF 

I MSG 

= 

2 

THEN 

TMSG 

= 

TMSG2 

IF 

I MSG 

= 

3 

THEN 

TMSG 

= 

TMSG3 

IF 

I MSG 

= 

4 

THEN 

TMSG 

= 

TMSG4 

IF 

I MSG 

= 

5 

THEN 

TMSG 

= 

TMSG5 

IF 

I MSG 

= 

6 

THEN 

TMSG 

s 

TMSG6 

IF 

I MSG 

= 

7 

THEN 

TMSG 

= 

TMSG7 

IF 

I MSG 

S 

8 

THEN 

TMSG 

= 

TMSG8 

IF 

I MSG 

= 

9 

THEN 

TMSG 

= 

TMSG9 

IF 

I MSG 

= 

10 

THEN 

TMSG 

= 

TMSG 10 

IF 

I MSG 

= 

11 

THEN 

TMSG 

r 

TMSG 11 

IF 

I MSG 

= 

12 

THEN 

TMSG 

= 

TMSG 12 

IF 

I MSG 

= 

13 

THEN 

TMSG 

s 

TMSG13 
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IF  I MSG  = 14  THEN  TMSG  = TMSG14  1463 
IF  I MSG  = 15  THEN  TMSG  = TMSG 15  1464 
IF  I MSG  = 16  THEN  TMSG  = TMSG 16  1465 
IF  I MSG  = 17  THEN  TMSG  = TMSG 17  i486 
IF  I MSG  = 18  THEN  TMSG  = TMSG 18  1467 


1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 


FOR  FIRST  1 PROPAGATIONS_FORM  1478 

BEGIN  1479 

DISPLAY  JORM  P ROP AGAT I ONS_F I N_FORM  IN  uso 

DEVS206 : [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING  i48i 

BEGIN  1482 

IF  I MSG  NE  1 THEN  1483 

BEGIN  1484 

PUTJORM  CODE_NUMBER  = TCODENO  i486 

PUTJORM  FMCODE ' = TFMCODE  i486 

PUTJORM  SIGNALJYPE  = TSIG  1487 

PUTJORM  DIMENSIONS  ■ TDIM  i486 

PUTJORM  QUALITY  = TSIGQUAL  1489 

PUTJORM  MAXJREQ_TIME  = TMAXFT  1490 

PUTJORM  MINJREQ_TIME  = TMINFT  1491 

PUTJORM  PARAM  = TPAR  1492 

PUTJORM  DURATION  = TSYMDUR  1493 

PUTJORM  ONSET  = TPDONSET  1494 

PUTJORM  FAILURE  = TINDFAIL  1495 

PUTJORM  C0MMENT_1  = TC0MMENT1  1496 

PUTJORM  C0MMENT_2  = TC0MMENT2  1497 

PUTJORM  C0MMENT_3  = TC0MMENT3  1498 

END  1499 

PUTJORM  CONTINUE  = TC0NTINUE3  isoo 

PUTJORM  MESSAGE  = TMSG  1501 

END  RETRIEVE  USING  1502 

BEGIN  isos 

TCODENO  = GETJORM  CODE_NUMBER  1504 

TFMCODE  = GETJORM  FMCODE  isos 

TSIG  = GETJORM  SIGNALJYPE  isos 

TDIM  = GETJORM  DIMENSIONS  1507 

TSIGQUAL  = GETJORM  QUALITY  isos 

TMAXFT  = GETJORM  MAX  FREQ JIME  1509 

TMINFT  = GETJORM  MIN JREQ  TIME  1510 

TPAR  = GETJORM  PARAM  1511 

TSYMDUR  = GETJORM  DURATION  1512 

TPDONSET  = GET  FORM  ONSET  1513 


THIS  SECTION  DISPLAYS  THE  FIND  FAILURE  INFORMATION 
PROPAGATIONS  FORM  AND  RETRIEVES  THE  DATA  ENTERED  ON  THE 
FORM 
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TINDFAIL  = GETJORM  FAILURE 
TC0MMENT1  = GETJORM  COMMENTJ 
TCOMMENT2  = GETJORM  COMMENT  1 
TC0MMENT3  = GETJORM  COMMENTJ 
TC0NTINUE3  = GETJORM  CONTINUE 
END 
END 


IF  TCONTINUE3  IS  NOT  EQUAL  TO  ”N\  ANY  LEADING  BLANKS 
WHICH  WERE  INADVERTANTLY  ENTERED  IN  TSIG,  TPAR, 
TCOMMENT1 , TCOMMENT2  AND  TC0MMENT3  ARE  REMOVED 


IF  TC0NTINUE3  NE  "N“  THEN 
BEGIN 
I = 1 

WHILE  I LE  5 
BEGIN 

IF  I * 1 THEN  TEMP  = TSIG 

IF  I * 2 THEN  TEMP  = TPAR 

IF  I = 3 THEN  TEMP  = TCOMMENT1 

IF  I * 4 THEN  TEMP  = TCOMMENT2 

IF  I * 5 THEN  TEMP  = TCOMMENT3 

IF  TEMP  NE  11  ” THEN 
BEGIN 
J = 1 

WHILE  FNSSTR JXTRACT ( TEMP , J,  1)  = - ■ 

BEGIN 

J = J + 1 
END 

TEMP  = FNSSTR  JXTRACT  ( TEMP , J,  249  - J + 1) 
END 

IF  I = 1 THEN  TSIG  = TEMP 

IF  I = 2 THEN  TPAR  = TEMP 

IF  I = 3 THEN  TCOMMENT1  = TEMP 

IF  I « 4 THEN  TC0MMENT2  = TEMP 

IF  I - 5 THEN  TC0MMENT3  = TEMP 

1 = 1 + 1 
END 
END 


IF  TCONTINUE3  IS  NOT  EQUAL  TO  HN\  TESTS  ARE  PERFORMED  TO 
VERIFY  ANY  DATA  ENTERED  ON  THE  FORM.  AS  APPROPRIATE,  THE 
PROCEDURE  CHECKS  ANY  OR  ALL  OF  THE  FOLLOWING: 
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1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 


F-55 


Datatrieve  Procedure  FIP_M0DIFY_2  (cont.) 


1.  DATA  HAS  BEEN  ENTERED  IN  AT  LEAST  ONE  OF  THE 
FIELDS 

2.  TSYSA  OR  TSYSB  IS  EQUAL  TO  TSYSTEM 

3.  TCODENO  EXISTS  IN  DOMAIN  CONNECTIONS 

4.  TSIGQUAL  IS  NUMERIC  AND  EQUAL  TO  0,  1,  2,  3,  4 
OR  5 

5.  TSSYS  IS  EQUAL  TO  TSYSTEM 

6.  TFMCODE  EXISTS  IN  DOMAIN  FAILUREMODES 

7.  TSIG  IS  IN  TABLE  SIGNAL JABLE 

8.  TDIM  IS  NUMERIC  AND  EQUAL  TO  1,  2 OR  3 

9.  TMAXFT  IS  SIGNED  NUMERIC  IN  RANGE  -99  TO  99 
INCLUSIVE 

10.  TMINFT  IS  SIGNED  NUMERIC  IN  RANGE  -99  TO  99 
INCLUSIVE 

11.  TPAR  IS  IN  TABLE  PARAMETER_TABLE 

12.  TSYMDUR  IS  SIGNED  NUMERIC  IN  RANGE  -99  TO  99 
INCLUSIVE 

13.  TPDONSET  IS  SIGNED  NUMERIC  IN  RANGE  -99  TO  99 
INCLUSIVE 

14.  TINDFAIL  IS  "T"  OR  "F" 

15.  TCONTINUE3  IS  "Y"  OR  "N" 

16.  AT  LEAST  ONE  RECORD  EXISTS  WITH  THE  DATA  SPECIFIED 


NDIM  * 0 
NSIGQUAL  = 0 
NMAXFT  = 0 
NMINFT  = 0 
NSYMDUR  = 0 
NPDONSET  = 0 
FLG3  = "Y“ 

IF  TCONTINUE3  NE  HN"  THEN 
BEGIN 


TCODENO 

= 

II  II 

AND 

TFMCODE 

s 

II 

II 

AND 

TSIG 

= 

il  ll 

AND 

TDIM 

= 

II 

II 

AND 

TSIGQUAL 

S 

ll  II 

AND 

TMAXFT 

= 

II 

II 

AND 

TMINFT 

= 

ll  II 

AND 

TPAR 

= 

II 

II 

AND 

TSYMDUR 

= 

ll  ll 

AND 

TPDONSET 

= 

II 

II 

AND 

TINDFAIL 

= 

ll  ll 

AND 

TC0MMENT1 

= 

II 

II 

AND 

TC0MMENT2 

BEGIN 

= 

ll  ll 

AND 

TC0MMENT3 

s 

II 

II 

THEN 

FLG3  = MN“ 

I MSG  = 2 
END 

IF  FLG3  = HY"  AND  TCODENO  NE  " " THEN 
BEGIN 

TSYSA  = FNSSTR  EXTRACT (TCODENO,  1,  4) 
TSYSB  = FNSSTR JXTRACT(  TCODENO,  14,  4) 
IF  TSYSA  NE  TSYSTEM  AND 
TSYSB  NE  TSYSTEM  THEN 
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BEGIN 

1616 

FLG3  = "N" 

1617 

I MSG  = 3 

1618 

END 

1619 

END 

1620 

IF 

FLG3  = "Y"  AND  TCODENO  NE  " " THEN 

1621 

BEGIN 

1622 

TSYSMODA  = FNSSTR  EXTRACT (TCODENO,  1,  8) 

1623 

TCONNECTU  = FNSSTR  EXTRACT (TCODENO,  9,  5) 

1624 

TSYSMODB  = FNSSTR  EXTRACT (TCODENO,  14,  8) 

1625 

IF  TSYSMODA  > TSYSMODB  THEN 

1626 

BEGIN 

1627 

TCODENO  = TSYSMODB  1 TCONNECTU  1 TSYSMODA 

1628 

END 

1629 

FLG4  = "N" 

1630 

FOR  CONNECTIONS  WITH  CODE  NUMBER  = TCODENO 

1631 

BEGIN 

1632 

FLG4  = "Y" 

1633 

END 

1634 

IF  FLG4  = "N"  THEN 

1635 

BEGIN 

1636 

FLG3  = "N" 

1637 

I MSG  = 4 

1638 

END 

1639 

END 

1640 

IF 

FLG3  = "Y"  AND  TSIGQUAL  NE  " " THEN 

1641 

BEGIN 

1642 

FLG4  = "N" 

1643 

IF  TSIGQUAL  IN  NUMBER  TABLE  THEN 

1644 

BEGIN 

1645 

NSIGQUAL  = TSIGQUAL 

1646 

IF  NSIGQUAL  GE  0 AND 

1647 

NSIGQUAL  LE  5 THEN  FLG4  = "Y" 

1648 

END 

1649 

IF  FLG4  = "N"  THEN 

1650 

BEGIN 

1651 

FLG3  = "N" 

1652 

I MSG  = 5 

1653 

END 

1654 

END 

1655 

IF 

FLG3  = "Y"  AND  TFMCODE  NE  " " THEN 

1656 

BEGIN 

1657 

TSSYS  = FNSSTR  EXTRACT (TFMCODE,  1,  4) 

1658 

IF  TSSYS  NE  TSYSTEM  THEN 

1659 

BEGIN 

1660 

FLG3  = "N" 

1661 

I MSG  = 6 

1662 

END 

1663 

END 

1664 

IF 

FLG3  = "Y"  AND  TFMCODE  NE  " " THEN 

1665 

BEGIN 

1666 
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FLG4  = "N"  1667 

FOR  FAILUREMODES  WITH  FMCODE  = TFMCODE  1668 

BEGIN  1669 

FLG4  = "Y"  1670 

END  i67i 

IF  FLG4  = "N"  THEN  1672 

BEGIN  1673 

FLG3  = “N"  1674 

IMSG  = 7 1675 

END  1676 

END  1677 

IF  FLG3  = "Y"  AND  TSIG  NE  " " THEN  1678 

BEGIN  1679 

IF  TSIG  NOT  IN  SIGNAL_TABLE  THEN  i680 

BEGIN  i68i 

FLG3  = "N"  1682 

IMSG  =8  1683 

END  1684 

END  1685 

IF  FLG3  = "Y"  AND  TDIM  NE  " " THEN  1686 

BEGIN  1687 

FLG4  = "N"  1688 

IF  TDIM  IN  NUMBER_TABLE  THEN  1689 

BEGIN  1690 

NDIM  = TDIM  i69i 

IF  NDIM  GE  1 AND  1692 

NDIM  LE  3 THEN  FLG4  = "Y"  1693 

END  1694 

IF  FLG4  = "N"  THEN  1695 

BEGIN  1696 

FLG3  = "N"  1697 

IMSG  = 9 1698 

END  1699 

END  1700 

IF  FLG3  = "Y"  AND  TMAXFT  NE  " " THEN  1701 

BEGIN  1702 

FLG4  = "N"  1703 

TMAXFT1  = FN$STR_EXTRACT( TMAXFT, 1,1)  1704 

TMAXFT2  = FN$STR_EXTRACT( TMAXFT, 2,1)  1705 

TMAXFT3  = FN$STR_EXTRACT( TMAXFT, 3,1)  1706 

IF  TMAXFT1  IN  SIGN_TABLE  AND  1707 

TMAXFT2  IN  NUMBER_TABLE  AND  1708 

TMAXFT3  IN  NUMBER  JABLE  THEN  1709 

BEGIN  1710 

NMAXFT  = TMAXFT  1711 

FLG4  = "Y"  1712 

END  1713 

IF  TMAXFT1  IN  SIGN_TABLE  AND  1714 

TMAXFT2  IN  NUMBER_TABLE  AND  1715 

TMAXFT3  = " " THEN  i7ie 

BEGIN  1717 
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NMAXFT  = TMAXFT 

1718 

FLG4  = "Y" 

1719 

END 

1720 

IF  TMAXFT1  IN  NUMBER  TABLE 

AND 

1721 

TMAXFT2  IN  NUMBER  TABLE  AND 

1722 

TMAXFT3  = “ " 

THEN 

1723 

BEGIN 

1724 

NMAXFT  = TMAXFT 

1725 

FLG4  = "Y" 

1726 

END 

1727 

IF  TMAXFT1  IN  NUMBER  TABLE 

AND 

1728 

TMAXFT2  = " M 

AND 

1729 

TMAXFT3  = " “ 

THEN 

1730 

BEGIN 

1731 

NMAXFT  = TMAXFT 

1732 

FLG4  = "Y" 

1733 

END 

1734 

IF  FLG4  = "N"  THEN 

1735 

BEGIN 

1736 

FLG3  = "N" 

1737 

I MSG  = 10 

1738 

END 

1739 

END 

1740 

IF  FLG3  = “Y“  AND  TMINFT  NE  " ” THEN 

1741 

BEGIN 

1742 

FLG4  = "N" 

1743 

TMINFT1  = FNSSTR  EXTRACT (TMINFT, 1,1) 

1744 

TMINFT2  = FNSSTR  EXTRACT (TMINFT, 2,1) 

1745 

TMINFT3  = FN$STR"EXTRACT( TMINFT, 3,1) 

1746 

IF  TMINFT1  IN  SIGN  TABLE 

AND 

1747 

TMINFT2  IN  NUMBER  TABLE 

AND 

1748 

TMINFT3  IN  NUMBER  TABLE 

THEN 

1749 

BEGIN 

1750 

NMINFT  = TMINFT 

1751 

FLG4  = "Y" 

1752 

END 

1753 

IF  TMINFT1  IN  SIGN  TABLE 

AND 

1754 

TMINFT2  IN  NUMBER  TABLE 

AND 

1755 

TMINFT3  = " " 

THEN 

1756 

BEGIN 

1757 

NMINFT  = TMINFT 

1758 

FLG4  = "Y" 

1759 

END 

1760 

IF  TMINFT1  IN  NUMBER  TABLE 

AND 

1761 

TMINFT2  IN  NUMBER  TABLE 

AND 

1762 

TMINFT3  = " " 

THEN 

1763 

BEGIN 

1764 

NMINFT  = TMINFT 

1765 

FLG4  = "Y" 

1766 

END 

1767 

IF  TMINFT1  IN  NUMBER  TABLE 

AND 

1768 
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TMINFT2  = " " AND  i?69 

TMINFT3  = 11  " THEN  1770 

BEGIN  1771 

NMINFT  = TMINFT  1772 

FLG4  = "Y"  ‘ 1773 

END  1774 

IF  FLG4  = "N"  THEN  1775 

BEGIN  1776 

FLG3  = "N"  1777 

IMSG  = 11  1778 

END  1779 

END  1780 

IF  FLG3  = “Y"  AND  TMAXFT  NE  " " AND  TMINFT  NE  " - THEN  17S1 

BEGIN  1782 

IF  NMAXFT  < NMINFT  THEN  1783 

BEGIN  1784 

HMINFT  = TMAXFT  1735 

TMAXFT  = TMINFT  1786 

TMINFT  = HMINFT  1787 

NMAXFT  = TMAXFT  1788 

NMINFT  = TMINFT  1789 

END  1790 

END  1791 

IF  FLG3  = "Y"  AND  TPAR  NE  " " THEN  1792 

BEGIN  1793 

IF  TPAR  NOT  IN  PARAMETER_TABLE  THEN  1794 

BEGIN  1795 

FLG3  = "N"  1796 

IMSG  = 12  1797 

END  1798 

END  1799 

IF  FLG3  = "Y"  AND  TSYMDUR  NE  11  " THEN  isoo 

BEGIN  1801 

FLG4  = "N"  1802 

TSYMDUR1  = FN$STR_EXTRACT( TSYMDUR, 1,1)  isos 

TSYMDUR2  = FN$STR_EXTRACT( TSYMDUR, 2,1)  i804 

TSYMDUR3  = FN$STR_EXTRACT( TSYMDUR, 3,1)  isos 

IF  TSYMDUR1  IN  SIGN_TABLE  AND  isoe 

TSYMDUR2  IN  NUMBER_TABLE  AND  i807 

TSYMDUR3  IN  NUMBER_TABLE  THEN  1808 

BEGIN  1809 

NSYMDUR  = TSYMDUR  isio 

FLG4  = "Y"  1811 

END  1812 

IF  TSYMDUR1  IN  SIGN_TABLE  AND  1813 

TSYMDUR2  IN  NUMBER_TABLE  AND  i8i4 

TSYMDUR3  = " " THEN  1815 

BEGIN  1816 

NSYMDUR  = TSYMDUR  1817 

FLG4  = "Y"  1818 

END  1819 
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IF  TSYMDUR1  IN  NUMBER  TABLE 

AND 

1820 

TSYMDUR2  IN  NUMBER  TABLE 

AND 

1821 

TSYMDUR3  = " " 

THEN 

1822 

BEGIN 

1823 

NSYMDUR  = TSYMDUR 

1824 

FLG4  = "Y" 

1825 

END 

1826 

IF  TSYMDUR1  IN  NUMBER  TABLE 

AND 

1827 

TSYMDUR2  = " " 

AND 

1828 

TSYMDUR3  = " " 

THEN 

1829 

BEGIN 

1830 

NSYMDUR  = TSYMDUR 

1831 

FLG4  = "Y" 

1832 

END 

1833 

IF  FLG4  = "N"  THEN 

1834 

BEGIN 

1835 

FLG3  = "N" 

1836 

I MSG  = 13 

1837 

END 

1838 

END 

1839 

IF  FLG3  = "Y"  AND  TPDONSET  NE  " " 

THEN 

1840 

BEGIN 

1841 

FLG4  = "N" 

1842 

TPDONSET1  = FNSSTR  EXTRACT (TPDONSET, 1,1) 

1843 

TPDONSET2  = FNSSTR  EXTRACT (TPDONSET, 2,1) 

1844 

TPDONSET3  = FNSSTR  EXTRACT (TPDONSET, 3,1) 

1845 

IF  TPDONSET1  IN  SIGN  TABLE 

AND 

1846 

TPD0NSET2  IN  NUMBER  TABLE  AND 

1847 

TPDONSET3  IN  NUMBER'TABLE  THEN 

1848 

BEGIN 

1849 

NPDONSET  = TPDONSET 

1850 

FLG4  = "Y" 

1851 

END 

1852 

IF  TPDONSET1  IN  SIGN  TABLE 

AND 

1853 

TPD0NSET2  IN  NUMBER  TABLE  AND 

1854 

TPDONSET3  = " " 

THEN 

1855 

BEGIN 

1856 

NPDONSET  = TPDONSET 

1857 

FLG4  = MY" 

1858 

END 

1859 

IF  TPDONSET1  IN  NUMBER  TABLE  AND 

1860 

TPD0NSET2  IN  NUMBER  TABLE  AND 

1861 

TPD0NSET3  = " " 

THEN 

1862 

BEGIN 

1863 

NPDONSET  = TPDONSET 

1864 

FLG4  = "Y" 

1865 

END 

1866 

IF  TPDONSET1  IN  NUMBER  TABLE  AND 

1867 

TPD0NSET2  = " " 

AND 

1868 

TPD0NSET3  = " " 

THEN 

1869 

BEGIN 

1870 
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NPDONSET  = TPDONSET  is?i 

FLG4  = "Y"  1872 

END  1873 

IF  FLG4  = "N"  THEN  1874 

BEGIN  1875 

FLG3  = "N"  1876 

I MSG  = 14  1877 

END  1878 

END  1879 

IF  FLG3  = "Y"  AND  TINDFAIL  NE  " " THEN  isso 

BEGIN  i88i 

IF  TINDFAIL  NE  "T"  AND  1882 

TINDFAIL  NE  "F"  THEN  1883 

BEGIN  1884 

FLG3  = "N"  lass 

IMSG  = 15  1886 

END  1887 

END  1888 

IF  FLG3  = "Y"  THEN  1889 

BEGIN  1890 

IF  TC0NTINUE3  NE  "Y"  AND  1891 

TC0NTINUE3  NE  "N"  THEN  1892 

BEGIN  1893 

FLG3  = "N"  1894 

IMSG  = 16  1895 

END  1896 

END  1897 

IF  FLG3  = "Y"  THEN  1898 

BEGIN  1899 

FLG4  = "N"  1900 

IF  FLG4  = "N"  AND  1901 

TFMCODE  NE  " " AND  1902 

TCODENO  NE  " " AND  1903 

TSIG  NE  " " THEN  1904 

BEGIN  1905 

JCNT  =0  1906 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND  1907 

CODE_NUMBER  = TCODENO  AND  1908 

SIGNAL_TYPE  = TSIG  1909 

BEGIN  i9io 

FLG5  = "Y"  i9ii 

:FIP_M0DIFY_3  1912 

IF  FLG5  = "Y"  THEN  1913 

JCNT  = JCNT  + 1 1914 

END  1915 

FLG4  = "Y"  1916 

END  1917 

IF  FLG4  = "N"  AND  1918 

TFMCODE  NE  " "AND  1919 

TCODENO  NE  " " THEN  1920 

BEGIN  1921 
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JCNT  = 0 1922 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND  1923 

CODEJUMBER  = TCODENO  1924 

BEGIN  1925 

FLG5  = "Y"  1926 

:FIP_M0DIFY_3  1927 

IF  FLG5  = "Y"  THEN  1928 

JCNT  = JCNT  +1  1929 

END  1930 

FLG4  = "Y"  1931 

END  1932 

IF  FLG4  = "N"  AND  1933 

TFMCODE  NE  " " AND  1934 

TSIG  NE  " " THEN  1935 

BEGIN  1936 

JCNT  =0  1937 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND  1938 

SIGNAL_TYPE  = TSIG  1939 

BEGIN  1940 

FLG5  = "Y"  1941 

:FIP_M0DIFY_3  1942 

IF  FLG5  = "Y"  THEN  1943 

JCNT  = JCNT  +1  1944 

END  1945 

FLG4  = "YH  1946 

END  1947 

IF  FLG4  = "N"  AND  1948 

TCODENO  NE  " " AND  1949 

TSIG  NE  " " THEN  1950 

BEGIN  1951 

JCNT  = 0 1952 

FOR  PROPAGATIONS  WITH  CODE_NUMBER  = TCODENO  AND  1953 

SIGNAL_TYPE  = TSIG  1954 

BEGIN  1955 

FLG5  = "Y"  1956 

: F I P_MOD I FY_3  1957 

IF  FLG5  = "Y"  THEN  1958 

JCNT  = JCNT  + 1 1959 

END  i960 

FLG4  = "Y"  i96i 

END  1962 

IF  FLG4  = "N"  AND  1953 

TFMCODE  NE  " " THEN  1964 

BEGIN  1965 

JCNT  = 0 1966 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  1957 

BEGIN  1968 

FLG5  = "Y"  1969 

:FIP_M0DIFY_3  1970 

IF  FLG5  = "Y"  THEN  1971 

JCNT  = JCNT  + 1 1972 
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END 

1973 

FLG4  = "Y" 

1974 

END 

1975 

IF  FLG4  = "N"  AND 

1976 

TCODENO  NE  " " THEN 

1977 

BEGIN 

1978 

JCNT  = 0 

1979 

FOR  PROPAGATIONS  WITH  CODE  NUMBER  = 

TCODENO 

1980 

BEGIN 

1981 

FLG5  = "Y" 

1982 

: FI P MODIFY  3 

1983 

IF  FLG5  = “Y"  THEN 

1984 

JCNT  = JCNT  + 1 

1985 

END 

1986 

FLG4  = "Y" 

1987 

END 

1988 

IF  FLG4  = "N"  AND 

1989 

TSIG  NE  " " 

1990 

BEGIN 

1991 

JCNT  = 0 

1992 

FOR  PROPAGATIONS  WITH  SIGNAL  TYPE  = 

TSIG 

1993 

BEGIN 

1994 

FLG5  = "Y" 

1995 

: FIP  MODIFY  3 

1996 

IF  FLG5  = "Y"  THEN 

1997 

JCNT  = JCNT  + 1 

1998 

END 

1999 

FLG4  = "Y" 

2000 

END 

2001 

IF  FLG4  = "N" 

2002 

BEGIN 

2003 

JCNT  = 0 

2004 

FOR  PROPAGATIONS 

2005 

BEGIN 

2006 

FLG5  = "Y" 

2007 

: FIP  MODIFY  3 

2008 

IF  FLG5  = "Y"  THEN 

2009 

JCNT  = JCNT  + 1 

2010 

END 

201  1 

END 

2012 

IF  JCNT  = 0 THEN 

2013 

BEGIN 

2014 

FLG3  = "N" 

2015 

I MSG  = 17 

2016 

END 

2017 

END 

2018 

END 

2019 

END 

2020 

2021 

2022 

=============s=s================-=--r---S:---=-=--=====--=== 

2023 
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IF  TC0NTINUE3  IS  NOT  EQUAL  TO  "N\  THIS  SECTION  DISPLAYS  THE 
INDICATED  RECORDS  ONE  AT  A TIME  AND  ALLOWS  CORRECTIONS  TO  BE 
MADE  TO  ANY  OR  ALL  OF  THE  RECORDS.  THE  FIELDS  CODEJUMBER, 
FMCODE,  SIGNAL_TYPE  AND  PARAMETER  CANNOT  BE  CHANGED  SINCE  THE 
COMBINATION  OF  THESE  FOUR  FIELDS  UNIQUELY  DEFINE  THE  FAILURE 
INFORMATIONS  PROPAGATION. 


IF  TCONTINUE3  NE  "N" 

BEGIN 

TCONTINUE4  = "Y“ 

FLG4  = "N" 

IF  FLG4  = "N"  AND 

TFMCODE  NE  " " AND 
TCODENO  NE  " " AND 
TSIG  NE  " " THEN 
BEGIN 

ICNT  = 0 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND 

CODE_NUMBER  = TCODENO  AND 

SIGNAL_TYPE  = TSIG  SORTED  BY 

FMCODE, 

SIGNAL_TYPE, 

PARAMETER, 

DATE_CREATED 

BEGIN 

IF  TCONTINUE4  = "Y"  THEN 
BEGIN 

FLG5  = "Y" 

:FIP_MODIFY_3 
IF  FLG5  = "Y"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
: F I P_MOD I F Y_4 
END 
END 
END 

FLG4  = "Y" 

END 

IF  FLG4  = "N"  AND 

TFMCODE  NE  " " AND 
TCODENO  NE  " " THEN 
BEGIN 

ICNT  = 0 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND 

CODEJUMBER  = TCODENO  SORTED  BY 
FMCODE, 

SIGNAL_TYPE, 

PARAMETER, 


2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 
2061 
2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2074 
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DATE  CREATED 

2075 

BEGIN 

2076 

IF  TC0NTINUE4  = "Y"  THEN 

2077 

BEGIN 

2078 

FLG5  = "Y" 

2079 

: FI P MODIFY  3 

2080 

IF  FLG5  = "Y"  THEN 

2081 

BEGIN 

2082 

ICNT  = ICNT  + 1 

2083 

:FIP  MODIFY  4 

2084 

END 

2085 

END 

2086 

END 

2087 

FLG4  = "Y" 

2088 

END 

2089 

FLG4  = "N"  AND 

2090 

TFMCODE  NE  " " AND 

2091 

TSIG  NE  " " THEN 

2092 

BEGIN 

2093 

ICNT  = 0 

2094 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE 

AND 

2095 

SIGNAL  TYPE  = TSIG 

SORTED  BY 

2096 

FMCODE, 

2097 

SIGNAL  TYPE, 

2098 

PARAMETER, 

2099 

DATE  CREATED 

2100 

BEGIN 

2101 

IF  TCONTINUE4  = "Y"  THEN 

2102 

BEGIN 

2103 

FLG5  = "Y" 

2104 

: FI P MODIFY  3 

2105 

IF  FLG5  = "Y"  THEN 

2106 

BEGIN 

2107 

ICNT  = ICNT  + 1 

2108 

: FI P MODIFY  4 

2109 

END 

21  10 

END 

2111 

END 

2112 

FLG4  = "Y" 

2113 

END 

21  14 

FLG4  = “N"  AND 

2115 

TCODENO  NE  " " AND 

2116 

TSIG  NE  " " THEN 

2117 

BEGIN 

2118 

ICNT  = 0 

2119 

FOR  PROPAGATIONS  WITH  CODE  NUMBER  = TCODENO  AND 

2120 

SIGNAL  TYPE  = TSIG 

SORTED  BY 

2121 

FMCODE, 

2122 

SIGNAL  TYPE, 

2123 

PARAMETER, 

2124 

DATE  CREATED 

2125 
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BEGIN  2126 

IF  TC0NTINUE4  = "Y"  THEN  2127 

BEGIN  2128 

FLG5  = "Y"  2129 

:FIP_MODIFY_3  ‘ 2130 

IF  FLG5  = "Y"  THEN  2131 

BEGIN  2132 

ICNT  = ICNT  + 1 2133 

:FIP_MODIFY_4  2134 

END  2135 

END  2136 

END  2137 

FLG4  = *Y"  2138 

END  2139 

IF  FLG4  = "N"  AND  2140 

TFMCODE  NE  " " THEN  2141 

BEGIN  2142 

ICNT  = 0 2143 

FOR  PROPAGATIONS  WITH  FMCODE  * TFMCODE  SORTED  BY  21 44 

FMCODE,  2145 

SIGNAL_TYPE,  21 46 

PARAMETER,  2147 

DATE_CREATED  21 48 

BEGIN  2149 

IF  TCONTINUE4  = "Y"  THEN  2150 

BEGIN  2151 

FLG5  = -Y"  2152 

: F I P_MOD I FY_3  2153 

IF  FLG5  = "Y"  THEN  2154 

BEGIN  2155 

ICNT  = ICNT  + 1 2156 

: F I P_MOD I F Y_4  2157 

END  2158 

END  2159 

END  2160 

FLG4  = "Y"  2161 

END  2162 

IF  FLG4  = "N"  AND  2163 

TCODENO  NE  " " THEN  21 64 

BEGIN  2165 

ICNT  = 0 2166 

FOR  PROPAGATIONS  WITH  CODEJUMBER  = TCODENO  SORTED  BY  21 67 

FMCODE,  2168 

SIGNAL_TYPE,  2169 

PARAMETER,  2170 

DATE  CREATED  2171 

BEGIN  2172 

IF  TC0NTINUE4  = "Y"  THEN  2173 

BEGIN  2174 

FLG5  = "Y"  2175 

: FI P MODIFY  3 2176 
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IF  FLG5  = "Y"  THEN  2177 

BEGIN  2178 

ICNT  = ICNT  +1  2179 

: F I P_M0D I F Y_4  2 iso 

END  2181 

END  2182 

END  2183 

FLG4  = "Y"  2184 

END  2185 

IF  FLG4  = MN"  AND  2186 

TSIG  NE  " " 2187 

BEGIN  2188 

ICNT  =0  2189 

FOR  PROPAGATIONS  WITH  SIGNAL_TYPE  = TSIG  SORTED  BY  2190 

FMCODE,  2191 

SIGNAL_TYPE,  2192 

PARAMETER,  2193 

DATE_CREATED  2194 

BEGIN  2195 

IF  TC0NTINUE4  = "Y"  THEN  21 96 

BEGIN  2197 

FLG5  = "Y"  2198 

: F I P_MOD I FY_3  2199 

IF  FLG5  = "Y"  THEN  2200 

BEGIN  2201 

ICNT  = ICNT  + 1 2202 

:FIP_M0DIFY_4  2203 

END  2204 

END  2205 

END  2206 

FLG4  = "Y"  2207 

END  2208 

IF  FLG4  = "N"  2209 

BEGIN  2210 

ICNT  = 0 2211 

FOR  PROPAGATIONS  SORTED  BY  2212 

FMCODE,  2213 

SIGNAL_TYPE,  2214 

PARAMETER,  2215 

DATE_CREATED  221 6 

BEGIN  2217 

IF  TC0NTINUE4  = "YM  THEN  22 is 

BEGIN  2219 

FLG5  = "Y"  2220 

:FIP_M0DIFY_3  2221 

IF  FLG5  = "Y"  THEN  2222 

BEGIN  2223 

ICNT  = ICNT  + 1 2224 

:FIP_M0DIFY_4  2225 

END  2226 

2227 


END 
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END 

END 

END 


! IF  TCONTINUE3  EQUALS  "N\  A RESPONSE  IS  REQUESTED  TO  CONTINUE 
| MODIFYING  FAILURE  INFORMATION  PROPAGATIONS  FOR  SYSTEM  = TSYSTEM 


IF  TC0NTINUE3  = "N"  THEN 
BEGIN 

PRINT  NEW_PAGE 
rCLRSCRN 

TC0NTINUE3  = "X" 

WHILE  TC0NTINUE3  NE  "Y"  AND 
TC0NTINUE3  NE  "NM 
BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  modifying",  SKIP  1, 
"FAILURE  INFORMATION  PROPAGATIONS",  SKIP  1 , 
"for  System",  SPACE  1,  TSYSTEM  (-)  USING  X(4), 
SPACE  0,  "?",  SKIP  1 
TCONTINUE3  = FN$UPCASE(*.  "Y  or  N") 

PRINT  " " 

END 

END 

END 


SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  MODIFYING  FAILURE  INFORMATION 
PROPAGATIONS  FOR  A NEW  SYSTEM  OR  TO  EXIT  PROCEDURE.  IF  TCONTINUE5  IS 
EQUAL  TO  "Y\  PROCEDURE  FIPJIODIFYJL  IS  CALLED  TO  REQUEST  A NEW 
SYSTEM.  IF  TCONTINUE5  IS  EQUAL  TO  "N\  PROCEDURE  DTRJULL  IS  CALLED 
TO  TERMINATE  MODIFYING  FAILURE  INFORMATION  PROPAGATIONS. 


TCONTINUE5  = "X" 

WHILE  TC0NTINUE5  NE  "Y"  AND 
TC0NTINUE5  NE  "N" 

BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 
PRINT  SKIP  3, 

"Do  you  wish  to  continue  modifying",  SKIP  1, 
"FAILURE  INFORMATION  PROPAGATIONS",  SKIP  1, 


2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 
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"for  another  system?",  SKIP  1 2279 

TC0NTINUE5  = FN$UPCASE(*. "Y  or  N")  2280 

PRINT  " " 2281 

END  2282 

IF  FN$TRANS_LOG( "PROC " ) NE  "PROC"  THEN  FN$DELETE_LOG( "PROC" ) 2283 

CHOICE  2284 

TC0NTINUE5  = "Y"  THEN  FN$CREATE_LOG( "PROC",  "FIP_M0DIFY_1  " ) 2285 

TCONTINUE5  = "N"  THEN  FN$CREATE_LOG( "PROC" , "DTR_NULL  " ) 2286 

END_CHOICE  " " 2287 

:PROC  2288 

END-PROCEDURE  2289 
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DEFINE  PROCEDURE  FIP_MODIFYJ 


THIS  SECTION  DETERMINES  IF  A GIVEN  RECORD  MATCHES  ALL  OF  THE  FIELDS 
ENTERED  ON  THE  FIND  FAILURE  INFORMATION  PROPAGATIONS  FORM.  THE  VALUES 
OF  THE  KEY  FIELDS  (CODEJUMBER,  FMCODE  AND  SIGNAL _TYPE)  ARE  NOT 
CHECKED  IN  THIS  SECTION  SINCE  THESE  VALUES  HAVE  ALREADY  BEEN  MATCHED 
IN  THE  "FOR  ..."  STATEMENT  WHICH  ESTABLISHES  THE  RECORD  STREAM. 


IF  TDIM  NE  " " THEN 
BEGIN 

IF  DIMENSIONS  NE  NDIM  THEN  FLG5  = "N" 

END 

IF  TSIGQUAL  NE  " M THEN 
BEGIN 

IF  SIGNAL  QUALITY  NE  NSIGQUAL  THEN  FLG5  = "N" 

END 

IF  TMAXFT  NE  " " THEN 
BEGIN 

IF  MAX_FREQ_OR_TIME  NE  NMAXFT  THEN  FLG5  = ”N" 

END 

IF  TMINFT  NE  " " THEN 
BEGIN 

IF  MINJREQJRJIME  NE  NMINFT  THEN  FLG5  = "N" 

END 

IF  TPAR  NE  " " THEN 
BEGIN 

IF  PARAMETER  NE  TPAR  THEN  FLG5  = "N" 

END 

IF  TSYMDUR  NE  " " THEN 
BEGIN 

IF  SYMPTOM  JURATION  NE  NSYMDUR  THEN  FLG5  = "N" 
END 

IF  TPDONSET  NE  ” " THEN 
BEGIN 

IF  PERIOD JFJNSET  NE  NPDONSET  THEN  FLG5  * "N" 
END 

IF  TINDFAIL  NE  " " THEN 
BEGIN 

IF  INDICATES  FAILURE  NE  TINDFAIL  THEN  FLG5  - "N" 
END 

IF  TCOMMENT1  NE  " ” THEN 
BEGIN 

IF  COMMENT1  NE  TCOMMENT1  THEN  FLG5  = "N“ 

END 

IF  TC0MMENT2  NE  “ " THEN 
BEGIN 


2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 
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IF  C0MMENT2  NE  TC0MMENT2  THEN  FLG5  = "N"  234 i 

END  2342 

IF  TC0MMENT3  NE  " " THEN  2343 

BEGIN  2344 

IF  COMMENT3  NE  TCOMMENT3  THEN  FLG5  = "N"  2345 

END  2346 

END-PROCEDURE  2347 


F-72 


Datatrieve  Procedure  FIP_M0DIFY_4 


DEFINE  PROCEDURE  FIP_MODIFY_4 


THE  FIELDS  OF  THE  INCOMING  FAILURE  INFORMATION  PROPAGATION  RECORD  ARE 
ASSIGNED  TO  VARIABLES  FOR  DISPLAY  AND  MODIFICATION.  THE  FIELDS 
FMCODE,  CODE_NUMBER,  SIGNALJYPE  AND  PARAMETER  ARE  NOT  ASSIGNED  TO 
VARIABLES  SINCE  THESE  FIELDS  CANNOT  BE  MODIFIED. 


TTDIM  = DIMENSIONS 
TTSIGQUAL  = SIGNAL_QUALITY 
TTMAXFT  = MAX_FREQ_OR_TIME 
TTM I N FT  = MI N_FREQ_OR_T I ME 
TTSYMDUR  = SYMPTOM_DURATION 
TTPDONSET  = PERIOD_OF_ONSET 
TTINDFAIL  = INDICATES_FAILURE 
TTCOMMENT1  = COMMENT1 
TTCOMMENT2  = COMMENT2 
TTCOMMENT3  = C0MMENT3 


LOOP  TO  DISPLAY  A FAILURE  INFORMATION  PROPAGATION  RECORD  USING  A TDMS 
FORM,  RETRIEVE  DATA  FROM  THE  FORM,  TEST  THE  INCOMING  INFORMATION  AND 
REQUEST  CORRECTION  OF  INVALID  DATA 


FLG6  = "N” 

IMSG  = 18 

WHILE  FLG6  = "NM 
BEGIN 

IF  IMSG  = 5 THEN  TMSG  = TMSG5 

IF  IMSG  = 9 THEN  TMSG  = TMSG9 

IF  IMSG  = 15  THEN  TMSG  = TMSG 15 

IF  IMSG  = 18  THEN  TMSG  = TMSG18 

IF  IMSG  = 19  THEN  TMSG  = TMSG19 


THIS  SECTION  DISPLAYS  THE  MODIFY  FAILURE  INFORMATION 
PROPAGATIONS  FORM  AND  RETRIEVES  DATA  ENTERED  ON  THE  FORM 


DISPLAY  FORM  PROPAGATIONS  MOD  FORM  IN 


2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 

2395 

2396 

2397 

2398 
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DEV$206 : [ BCDSSME2 . FORMS] FORMSLIB . RLB  USING 

2399 

BEGIN 

2400 

PUT  FORM  RECORD  NUMBER 

= ICNT 

2401 

PUT  FORM  TOTAL  RECORDS 

= JCNT 

2402 

PUT  FORM  CODE  NUMBER 

= CODE  NUMBER 

2403 

PUT  FORM  FMCODE 

= FMCODE 

2404 

PUT  FORM  SIGNAL  TYPE 

= SIGNAL  TYPE 

2405 

PUT  FORM  DIMENSIONS 

= TTDIM 

2406 

PUT  FORM  QUALITY 

= TTSIGQUAL 

2407 

PUT  FORM  MAX  FREQ  TIME 

= TTMAXFT 

2408 

PUT  FORM  MIN  FREQ  TIME 

= TTMINFT 

2409 

PUT  FORM  PARAM 

= PARAMETER 

2410 

PUT  FORM  DURATION 

= TTSYMDUR 

241  1 

PUT  FORM  ONSET 

= TTPDONSET 

2412 

PUT  FORM  FAILURE 

= TTINDFAIL 

2413 

PUT  FORM  COMMENT  1 

= TTCOMMENT1 

2414 

PUT  FORM  COMMENT  2 

= TTCOMMENT2 

2415 

PUT  FORM  COMMENT  3 

= TTCOMMENT3 

2416 

IF  I MSG  = 18  THEN 

2417 

PUT  FORM  CONTINUE 

s H yt* 

2418 

IF  I MSG  NE  18  THEN 

2419 

PUT  FORM  CONTINUE 

= TC0NTINUE4 

2420 

PUT  FORM  MESSAGE 

= TMSG 

2421 

END  RETRIEVE  USING 

2422 

BEGIN 

2423 

TTDIM  = GET  FORM 

DIMENSIONS 

2424 

TTSIGQUAL  = GET  FORM 

QUALITY 

2425 

TTMAXFT  = GET  FORM 

MAX  FREQ  TIME 

2426 

TTMINFT  = GET  FORM 

MIN  FREQ  TIME 

2427 

TTSYMDUR  * GET  FORM 

DURATION 

2428 

TTPDONSET  = GET  FORM 

ONSET 

2429 

TTINDFAIL  = GET  FORM 

FAILURE 

2430 

TT COMMENT 1 = GET  FORM 

COMMENT  1 

2431 

TTCOMMENT2  = GET  FORM 

COMMENT  2 

2432 

TTCOMMENT3  = GET  FORM 

COMMENT  3 

2433 

TCONTINUE4  = GET  FORM 

CONTINUE 

2434 

END 

2435 

IF  TTMAXFT  < TTMINFT  THEN 

2436 

BEGIN 

2437 

HMINFT  = TTMAXFT 

2438 

TTMAXFT  = TTMINFT 

2439 

TTMINFT  = HMINFT 

2440 

END 

2441 

2442 

2443 

O A A A 

1 

2445 

IF  TC0NTINUE4  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH 

2446 

WERE  INADVERTENTLY  ENTERED  IN  TTCOMMENT1,  TTC0MMENT2  AND 

2447 

TTCOMMENT3  ARE  REMOVED 

2448 

2449 
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* 


I 

j 


2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2468 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 


FLG6  * "Y"  2488 

IF  TC0NTINUE4  NE  "A"  THEN  2489 

BEGIN  2490 

IF  TTSIGQUAL  LT  0 OR  249 i 

TTSIGQUAL  GT  5 THEN  2492 

BEGIN  2493 

FLG6  = "NH  2494 

IMSG  = 5 2495 

END  2496 

IF  FLG6  = "YM  THEN  2497 

BEGIN  2498 

IF  TTDIM  LT  1 OR  2499 

TTDIM  GT  3 THEN  2500 


IF  TC0NTINUE4  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TTSIGQUAL  IS  EQUAL  TO  0,  1,  2,  3,  4 OR  5 

2.  TTDIM  IS  EQUAL  TO  1,  2 OR  3 

3.  TTINDFAIL  IS  EQUAL  TO  "T"  OR  "F" 

4.  TC0NTINUE4  IS  "Y",  "N"  OR  "A" 


IF  TC0NTINUE4  NE  "A"  THEN 
BEGIN 
I = 1 

WHILE  I LE  3 
BEGIN 

IF  I = 1 THEN  TEMP  = TTC0MMENT1 

IF  I = 2 THEN  TEMP  = TTC0MMENT2 

IF  I = 3 THEN  TEMP  = TTC0MMENT3 

IF  TEMP  NE  " " THEN 
BEGIN 
J = 1 

WHILE  FNSSTREXTRACT ( TEMP , J,  1)  = “ " 

BEGIN 

J = J + 1 
END 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  249  - J + 1) 
END 

IF  I = 1 THEN  TTC0MMENT1  = TEMP 

IF  I = 2 THEN  TTC0MMENT2  = TEMP 

IF  I = 3 THEN  TTC0MMENT3  = TEMP 

1 = 1+1 
END 
END 
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BEGIN  2501 

FLG6  = "N"  2502 

IMSG  = 9 2503 

END  2504 

END  2505 

IF  FLG6  = "Y"  THEN  2506 

BEGIN  2507 

IF  TTINDFAIL  NE  "T"  AND  2508 

TTINDFAIL  NE  "F"  THEN  2509 

BEGIN  25io 

FLG6  = "N"  25ii 

IMSG  =15  2512 

END  2513 

END  2514 

IF  FLG6  = "Y"  THEN  2515 

BEGIN  2516 

IF  TC0NTINUE4  NE  "Y"  AND  2517 

TC0NTINUE4  NE  "N"  AND  25 is 

TC0NTINUE4  NE  "A"  THEN  2519 

BEGIN  2520 

FLG6  = "N"  2521 

IMSG  = 19  2522 

END  2523 

END  2524 

END  2525 

END  2526 

! 2527 

! 2528 

! 2530 

! IF  TC0NTINUE4  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE  2531 

! VARIABLES  TTC0MMENT1,  TTC0MMENT2  AND  TTC0MMENT3  SO  THAT  THE  FIRST  2532 

! VALUE  WHICH  IS  NOT  BLANK  IS  TTC0MMENT1  AND  THE  SECOND  VALUE  WHICH  2533 

! IS  NOT  BLANK  IS  TTC0MMENT2  2534 

! 2535 

! 2537 

IF  TC0NTINUE4  NE  "AH  THEN  2538 

BEGIN  2539 

TEMP  = TTC0MMENT1  1 1 "#$#"  | TTC0MMENT2  1 1 "#$#"  | TTC0MMENT3  1 1 "#$#"  2540 

1=1  2541 

WHILE  I LE  3 2542 

BEGIN  2543 

J = 1 2544 

WHILE  J = 1 2545 

BEGIN  2546 

J = FN$STR_LOC(TEMP,  "#$#")  2547 

IF  J = 0 THEN  TCOMMENT  = " " 2548 

IF  J = 1 THEN  TEMP  = FN$STR_EXTRACT ( TEMP , 4,  246)  2549 

IF  J GT  1 THEN  2550 

BEGIN  2551 
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TCOMMENT  = FN$STR_EXTRACT ( TEMP , 1,  J - 1) 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  249  - J + 1) 
END 
END 

IF  I = 1 THEN  TTCOMMENT1  = TCOMMENT 

IF  I = 2 THEN  TTCOMMENT2  = TCOMMENT 

IF  I = 3 THEN  TTCOMMENT3  = TCOMMENT 

1 = 1 + 1 
END 
END 


IF  TCONTINUE4  IS  NOT  EQUAL  TO  “A"  AND  NEW  DATA  HAS  BEEN  ENTERED  IN  AT 
LEAST  ONE  OF  THE  RECORD  FIELDS,  THIS  SECTION  PRINTS  THE  INITIAL  RECORD 
DATA  TO  THE  LOG  FILE,  MODIFIES  THE  RECORD  AND  PRINTS  THE  MODIFIED 
RECORD  DATA  TO  THE  LOG  FILE  (HIGHLIGHTING  THE  CHANGED  FIELDS) 


IF  TCONTINUE4  NE  MA“  AND 
(DIMENSIONS  NE  TTDIM  OR 

SIGNAL_QUALITY  NE  TTSIGQUAL  OR 
MAX_FREQ_OR_TIME  NE  TTMAXFT  OR 
MIN_FREQ_OR_TIME  NE  TTMINFT  OR 
SYMPTOMJURATION  NE  TTSYMDUR  OR 
PERIOD_OF_ONSET  NE  TTPDONSET  OR 
I ND I C ATES_F A I LURE  NE  TTINDFAIL  OR 
COMMENT1  NE  TTCOMMENT1  OR 

COMMENT2  NE  TTCOMMENT2  OR 

COMMENT3  NE  TTCOMMENT3)  THEN 

BEGIN 


THIS  SECTION  PRINTS  THE  INITIAL  RECORD  DATA  TO  THE  SESSION  LOG 
FILE 


KCNT  = KCNT  + 1 

PRINT  NEWJAGE,  COL  1,  “RECORD  NO.  ”,  SPACE  0, 

KCNT  (-)  USING  9(4),  SKIP  2, 

,u=s=ss==sss====s=s==ss==s======s=s======n  SPACE  0 

1========================================H  SKIp  1# 

u========================================n  SpACE  0, 

========================================,  SKIP  2, 

COL  6,  "DATE_CREATED  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 


2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 
2601 
2602 
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COL  6,  "FMCODE  :\  SPACE  1, 

FMCODE  (-)  USING  X(20),  SKIP  1, 

COL  6,  "CODE_NUMBER  SPACE  1, 

CODEJUMBER  (-)USING  X(21),  SKIP  1, 

COL  6,  "SIGNAL_TYPE  :",  SPACE  1, 

SIGNAL_TYPE  (-)  USING  X(20),  SKIP  1, 

COL  6,  "SIGNAL_UNITS  SPACE  1, 

SIGNAL_UNITS  (-)  USING  X(25),  SKIP  1, 

COL  6,  "DIMENSIONS  :",  SPACE  1, 

DIMENSIONS  (-)  USING  9(1),  SKIP  1, 

COL  6,  "SIGNAL_QUALITY  SPACE  1, 

SIGNAL_QUALITY  (-)  USING  9(1),  SKIP  1, 

COL  6,  " MAX_FREQ_OR_T I ME  SPACE  1, 

MAX_FREQ_OR_TIME  (-)  USING  -Z9,  SKIP  1, 

COL  6,  "MIN_FREQ_OR_TIME  SPACE  1, 

M I N_F REQ_OR_T I ME  (-)  USING  -Z9,  SKIP  1, 

COL  6,  "FT_UNITS  SPACE  1, 

FTJJNITS  (-)  USING  X(25),  SKIP  1, 

COL  6,  "PARAMETER  :",  SPACE  1, 

PARAMETER  (-)  USING  X(20),  SKIP  1, 

COL  6,  "PARAMETERJNITS  :",  SPACE  1, 

PARAMETER_UNITS  (-)  USING  X(25),  SKIP  1, 

COL  6,  " S YMP T OM_D U RAT I ON  SPACE  1, 

SYMPTOM_DURATION  (-)  USING  -Z9,  SKIP  1, 

COL  6,  "PERIOD_OF_ONSET  SPACE  1, 

PERIOD_OF_ONSET  (-)  USING  -Z9,  SKIP  1, 

COL  6,  " INDICATES_FAI LURE  SPACE  1, 

I ND I CATES_FA I LURE  (-)  USING  X(l),  SKIP  1, 

COL  6,  "COMMENT1  SPACE  1, 

COMMENT1  (-)  USING  T(50),  SKIP  1, 

COL  6,  "COMMENT2  SPACE  1, 

COMMENT2  (-)  USING  T(50),  SKIP  1, 

COL  6,  "COMMENT3  :",  SPACE  1, 

COMMENT3  (-)  USING  T(50),  SKIP  1, 

COL  6,  " DATE_LAST_MOD I F I ED  SPACE  1, 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 
COL  6,  "MODIFYING_PROCEDURE  :",  SPACE  1, 

MODIFYING_PROCEDURE  (-)  USING  X(20) 


THIS  SECTION  STORES  THE  INITIAL  RECORD  VALUES  FOR  USE  IN 
HIGHLIGHTING  THE  FIELDS  WHICH  HAVE  BEEN  MODIFIED 


HDCREATED  = DATE_CREATED 

HFMCODE  = FMCODE 

HCODENO  = CODEJUMBER 

HSIG  = SIGNAL_TYPE 


2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 
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2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

2651 

2652 

2653 
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HSIGUNIT 

= 

SIGNAL  UNITS 

2654 

HDIM 

= 

DIMENSIONS 

2655 

HSIGQUAL 

= 

SIGNAL  QUALITY 

2656 

HMAXFT 

= 

MAX  FREQ  OR  TIME 

2657 

HMINFT 

= 

MIN  FREQ  OR  TIME 

2658 

HFTUNIT 

= 

FT  UNITS 

2659 

HPAR 

= 

PARAMETER 

2660 

HPARUNIT 

= 

PARAMETER  UNITS 

2661 

HSYMDUR 

= 

SYMPTOM  DURATION 

2662 

HONSET 

= 

PERIOD  OF  ONSET 

2663 

HINDFAIL 

= 

INDICATES  FAILURE 

2664 

HC0MMENT1 

= 

C0MMENT1 

2665 

HC0MMENT2 

= 

C0MMENT2 

2666 

HC0MMENT3 

= 

C0MMENT3 

2667 

HDLASTMOD 

= 

DATE  LAST  MODIFIED 

2668 

HMODPROC 

= 

MODIFYING  PROCEDURE 

2669 

2670 

2671 


THIS  SECTION  MODIFIES  THE  FAILURE  INFORMATION  PROPAGATION  USING 
THE  VERIFIED  DATA  ENTERED  ON  THE  MODIFY  FAILURE  INFORMATION 
PROPAGATIONS  FORM 

2672 

2673 

2674 

2675 

2676 

2677 

n c *70 

2679 

CAL  = "NOW" 

2680 

MODIFY  USING 

2681 

BEGIN 

2682 

DIMENSIONS 

= TTDIM 

2683 

SIGNAL  QUALITY 

= TTSIGQUAL 

2684 

MAX  FREQ  OR  TIME 

= TTMAXFT 

2685 

MIN  FREQ  OR  TIME 

= TTMINFT 

2686 

SYMPTOM  DURATION 

= TTSYMDUR  ' 

2687 

PERIOD  OF  ONSET 

= TTPDONSET 

2688 

INDICATES  FAILURE 

= TTINDFAIL 

2689 

C0MMENT1 

= TTC0MMENT1 

2690 

C0MMENT2 

= TTC0MMENT2 

2691 

C0MMENT3 

= TTC0MMENT3 

2692 

DATE  LAST  MODIFIED 

= CAL 

2693 

MODIFYING  PROCEDURE 

= "FIP  MODIFY" 

2694 

END 

2695 

2696 

2697 

O CQQ 

1 

zoyo 

2699 

THIS  SECTION  PRINTS  THE  MODIFIED  RECORD  DATA  TO  THE  SESSION  LOG 

2700 

FILE  AND  HIGHLIGHTS  THE  FIELDS  WHICH  CONTAIN  NEW  INFORMATION 

2701 

II 

II 

II 

II 
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2702 

2703 

2704 
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PRINT  SKIP  1,  2705 

,,=============S!S=============S=S=========«  $pACE  2706 

COL  1,  CHOICE  ’ ’ 2708 

DATE_CREATED  = HDCREATED  THEN  " " 2709 

ELSE  "***"  2710 

END_CHOICE,  27ii 

SPACE  2,  "DATE_CREATED  :",  SPACE  1,  2712 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  2713 

COL  1,  CHOICE  2714 

FMCODE  = HFMCODE  THEN  " " 2715 

ELSE  "***"  2716 

END_CHOICE,  2717 

SPACE  2,  "FMCODE  SPACE  1,  27 is 

FMCODE  (-)  USING  X(20),  SKIP  1,  2719 

COL  1,  CHOICE  2720 

CODE_NUMBER  = HCODENO  THEN  " " 2721 

ELSE  "***"  2722 

END_CHOICE,  2723 

SPACE  2,  "CODE_NUMBER  SPACE  1,  2724 

CODE_NUMBER  (-)USING  X(21),  SKIP  1,  2725 

COL  1,  CHOICE  2726 

SIGNALJYPE  = HSIG  THEN  " " 2727 

ELSE  "***"  2728 

END_CHOICE,  2729 

SPACE  2,  "SIGNALJYPE  :\  SPACE  1,  2730 

SIGNALJYPE  (-)  USING  X(20),  SKIP  1,  2731 

COL  1,  CHOICE  2732 

SIGNAL JJNITS  = HSIGUNIT  THEN  " " 2733 

ELSE  "***"  2734 

END_CHOICE,  2735 

SPACE  2,  "SIGNALJJNITS  :",  SPACE  1,  2736 

SIGNALJJNITS  (-)  USING  X(25),  SKIP  1,  2737 

COL  1,  CHOICE  2738 

DIMENSIONS  = HDIM  THEN  " " 2739 

ELSE  "***"  2740 

END_CHOICE,  2741 

SPACE  2,  "DIMENSIONS  SPACE  1,  2742 

DIMENSIONS  (-)  USING  9(1),  SKIP  1,  2743 

COL  1,  CHOICE  2744 

SIGNAL_QUALITY  = HSIGQUAL  THEN  " " 2745 

ELSE  "***"  2746 

END_CHOICE,  2747 

SPACE  2,  "SIGNAL_QUALITY  SPACE  1,  2748 

SIGNAL_QUALITY  (-)  USING  9(1),  SKIP  1,  2749 

COL  1,  CHOICE  2750 

MAX_FREQ_OR_TIME  = HMAXFT  THEN  " " 2751 

ELSE  "***"  2752 

END_CHOICE,  2753 

SPACE  2,  "MAX_FREQ_ORJIME  :",  SPACE  1,  2754 

MAX_FREQ_ORJIME  (-)  USING  -Z9,  SKIP  1,  2755 
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COL  1,  CHOICE  2756 

M I N_FREQ_0R_T I ME  = HMINFT  THEN  " " 2757 

ELSE  "***"  2758 

END_CHOICE,  2759 

SPACE  2,  "MIN_FREQ_OR_TIME  SPACE  1,  2760 

MIN_FREQ_OR_TIME  (-)  USING  -Z9,  SKIP  1,  276i 

COL  1,  CHOICE  2762 

FTJJNITS  = HFTUNIT  THEN  " " 2763 

ELSE  "***"  2764 

END_CHOICE,  2765 

SPACE  2,  "FTJJNITS  SPACE  1,  2766 

FT_UN ITS  (-)  USING  X(25),  SKIP  1,  2767 

COL  1,  CHOICE  2768 

PARAMETER  = HPAR  THEN  " " 2769 

ELSE  "***"  2770 

END_CHOICE,  2771 

SPACE  2,  "PARAMETER  SPACE  1,  2772 

PARAMETER  (-)  USING  X(20),  SKIP  1,  2773 

COL  1,  CHOICE  2774 

PARAMETERJJNITS  = HPARUNIT  THEN  " " 2775 

ELSE  "***"  2776 

END_CHOICE,  2777 

SPACE  2,  "PARAMETERJJNITS  SPACE  1,  2778 

PARAMETER_UNITS  (-)  USING  X(25),  SKIP  1,  2779 

COL  1,  CHOICE  2780 

SYMPTOM_DURATION  = HSYMDUR  THEN  " " 278 1 

ELSE  "***"  2782 

END_CHOICE,  2783 

SPACE  2,  "SYMPTOM_DURATION  SPACE  1,  2784 

SYMPTOM_DURATION  (-)  USING  -Z9,  SKIP  1,  2785 

COL  1,  CHOICE  2786 

PERIOD_OF_ONSET  = HONSET  THEN  " " 2787 

ELSE  "***"  2788 

END_CHOICE,  2789 

SPACE  2,  "PERIOD_OF  ONSET  SPACE  1,  2790 

PERIOD_OF~ONSET  (-)  USING  -Z9,  SKIP  1,  2791 

COL  1,  CHOICE  2792 

INDICATES_FAILURE  = HINDFAIL  THEN  " " 2793 

ELSE  "***"  2794 

END_CHOICE,  2795 

SPACE  2,  "INDICATES_FAILURE  :\  SPACE  1,  2796 

INDICATES_FAILURE  (-)  USING  X(l),  SKIP  1,  2797 

COL  1,  CHOICE  2798 

C0MMENT1  = HC0MMENT1  THEN  " " 2799 

ELSE  "***"  2800 

END_CHOICE,  2801 

SPACE  2,  "C0MMENT1  SPACE  1,  2802 

C0MMENT1  (-)  USING  T(50),  SKIP  1,  2803 

COL  1,  CHOICE  2804 

C0MMENT2  = HC0MMENT2  THEN  " “ 2805 

ELSE  "***"  2806 
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END_CHOICE,  2807 

SPACE  2,  "C0MMENT2  :\  SPACE  1,  2808 

C0MMENT2  (-)  USING  T(50),  SKIP  1,  2809 

COL  1,  CHOICE  28io 

C0MMENT3  = HC0MMENT3  THEN  " " zsi i 

ELSE  "***"  2812 

END_CHOICE,  28i3 

SPACE  2,  "C0MMENT3  :\  SPACE  1,  28 1 4 

C0MMENT3  (-)  USING  T(50),  SKIP  1,  2815 

COL  1,  CHOICE  2816 

DATEJ.AST  MODIFIED  = HDLASTMOD  THEN  " " 28 1 1 

ELSE'"***"  2818 

END_CHOICE,  2819 

SPACE  2,  " DATE_LAST_MOD I F I ED  SPACE  1,  2820 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  282i 

COL  1,  CHOICE  2822 

MOD I F Y I NG_PROCEDURE  = HMODPROC  THEN  " " 2823 

ELSE  "***"  2824 

END_CHOICE,  2825 

SPACE  2,  "MODIFYING_PROCEDURE  SPACE  1,  2826 

MODIFYING_PROCEDURE  (-)  USING  X(20),  SKIP  2,  2827 

SPACE  0,  2828 

»SSS  = = = = r=SSSSrSSS====S3SrS  = = Sr=S  = rSSS»S»,  SKIP  1,  2829 

, SPACE  0,  2830 

:BELL  2832 

END  2833 

2834 

2835 

2837 

IF  TC0NTINUE4  IS  EQUAL  TO  HA\  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT  2838 

THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  MODIFIED.  THIS  2839 

MESSAGE  WILL  APPEAR  IN  THE  SESSION  LOG  FILE.  2840 


! | 2841 

! 2843 

IF  TC0NTINUE4  = "A"  THEN  2844 

BEGIN  2845 

PRINT  NEW_PAGE,  SKIP  3,  2846 

COL  1,  "«==«============================«====•',  SPACE  0,  2847 

••r=ss  = rsssssrs8sss»ssssssssass=rss=  = s = = =»>  SKIP  10,  2848 

COL  9 "*********************************"  SKIP  2 2849 

COL  9^  "*****  RECORD  NOT  MODIFIED  *****••’  SKIP  2,  2850 

COL  l,  *'*===«==========:========================••,  SPACE  0,  2852 

2853 

END  2854 

END-PROCEDURE  2855 
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DEFINE  PROCEDURE  FIP_STORE 


VARIABLE  ASSOCIATED  WITH  SYSTEM  FOR  WHICH  FAILURE  INFORMATION 
PROPAGATION  DATA  IS  CURRENTLY  BEING  ENTERED 


DECLARE  TSYSTEM  PIC  X(4). 


VARIABLES  ASSOCIATED  WITH  FMCODE 


DECLARE  TFMCODE  PIC  X(20). 
DECLARE  TSSYS  PIC  X(4). 
DECLARE  TSSYSMOD  PIC  X(8). 


VARIABLES  ASSOCIATED  WITH  CODEJIUMBER 


DECLARE  TCODENO  PIC  X(21). 
DECLARE  TTCODENO  PIC  X(21). 
DECLARE  TSYSA  PIC  X(4). 
DECLARE  TSYSMODA  PIC  X(8). 
DECLARE  TTSYSMODA  PIC  X(8). 
DECLARE  TCONNECTU  PIC  X(5). 
DECLARE  TSYSB  PIC  X(4). 
DECLARE  TSYSMODB  PIC  X(8). 
DECLARE  TTSYSMODB  PIC  X(8). 


VARIABLES  ASSOCIATED  WITH  OTHER  INPUT  FIELDS  FOR 
DOMAIN  PROPAGATIONS: 

1.  SIGNALJTYPE 

2.  DIMENSIONS 

3.  SIGNALJ3UALITY 

4.  MAXJREQ_ORJIME 

5.  MINJREQ  OR_TIME 

6.  PARAMETER 


2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 

2901 

2902 

2903 

2904 

2905 

2906 


I 
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7.  SYMPTOM_DURATION 

8.  PERI0D_0F_0NSET 

9.  IND ICATES_FAI LURE 

10.  C0MMENT1 

11.  COMMENT2 

12.  C0MMENT3 


DECLARE  TSIG  PIC  X(20). 
DECLARE  TDIM  PIC  9(1). 
DECLARE  TSIGQUAL  PIC  9(1). 
DECLARE  TMAXFT  PIC  S9(2). 
DECLARE  TMINFT  PIC  S9(2). 
DECLARE  TPAR  PIC  X(20). 
DECLARE  TSYMDUR  PIC  S9(2). 
DECLARE  TPDONSET  PIC  S9(2). 
DECLARE  TINDFAIL  PIC  X(l). 
DECLARE  TCOMMENT1  PIC  X(80). 
DECLARE  TCOMMENT2  PIC  X(80). 
DECLARE  TCOMMENT3  PIC  X(80). 
DECLARE  TCOMMENT  PIC  X(80). 


VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  COMMENTS 


VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 


DECLARE  TCONTINUE1  PIC  X(l). 
DECLARE  TC0NTINUE2  PIC  X(l). 
DECLARE  TC0NTINUE3  PIC  X(l). 
DECLARE  TFAILSAME  PIC  X(l). 
DECLARE  I MSG  PIC  9(2). 
DECLARE  FLG1  PIC  X(l). 
DECLARE  FLG2  PIC  X(l). 


! VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

I 


2907 

2908 

2909 

2910 
291  1 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 
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! 

1 

2958 

J 

zy  oy 
2960 

DECLARE  TMSG 

PIC  X(80). 

2961 

DECLARE  TMSG1 

PIC  X(80). 

2962 

DECLARE  TMSG2 

PIC  X(80) . 

2963 

DECLARE  TMSG3 

PIC  X(80). 

2964 

DECLARE  TMSG4 

PIC  X(80). 

2965 

DECLARE  TMSG5 

PIC  X(80). 

2966 

DECLARE  TMSG6 

PIC  X(80). 

2967 

DECLARE  TMSG7 

PIC  X(80). 

2968 

DECLARE  TMSG8 

PIC  X( 80) . 

2969 

DECLARE  TMSG9 

PIC  X(80). 

2970 

DECLARE  TMSG 10 

PIC  X(80). 

2971 

DECLARE  TMSG 11 

PIC  X(80) . 

2972 

DECLARE  TMSG 12 

PIC  X(80) . 

2973 

DECLARE  TMSG 13 

PIC  X(80) . 

2974 

DECLARE  TMSG14 

PIC  X(80) . 

2975 

J 

2976 

j 

2977 

f 

Zy  78 
2979 

! VARIABLE  USED 

AS  COUNTERS 

2980 

1 

2981 

1 

zyoz 

2983 

DECLARE  ICNT 

PIC  9(4). 

2984 

DECLARE  JCNT 

PIC  9(4). 

2985 

DECLARE  I 

PIC  9(4). 

2986 

DECLARE  J 

PIC  9(4). 

2987 

i 

2988 

j 

2989 

t 

zyyu 

2991 

! VARIABLE  USED 

TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 

2992 

1 

2993 

j 

zyy4 

2995 

DECLARE  CAL 

USAGE  DATE 

2996 

EDIT_STRING  X(23). 

2997 

1 

2998 

» 

2999 

onnn  1 

1 

1 

3000 

3001  I 

! READY  THE  DOMAINS  CONNECTIONS,  MODULES,  SYSTEMS  AND  PROPAGAT I ONS_FORM 

3002 

i 

1 

3003 

>i 

i 

3004 

3005 

SET  ABORT 

3006 

READY  CONNECTIONS  SHARED  READ 

3007 

READY  FAILUREMODES  SHARED  READ 

3008 
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READY  SYSTEMS  SHARED  WRITE 

READY  PROPAGATIONS JORM  SHARED  READ 


INITIALIZE  THE  MESSAGE  VARIABLES,  INITIALIZE  THE  COUNTER  (ICNT)  USED 
FOR  NUMBERING  THE  LOG  FILE  RECORDS  AND  INITIALIZE  THE  COUNTER  (JCNT) 
USED  TO  CONTROL  THE  NUMBER  OF  RECORDS  PRINTED  ON  EACH  PAGE  OF  THE  LOG 
FILE 


TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = "CODE  NUMBER  IS  NOT  VALID  - SYSTEM  A OR  SYSTEM  B MUST  BE" 
TMSG3  * "CODE  NUMBER  IS  NOT  VALID  - NOT  IN  DOMAIN  CONNECTIONS" 

TMSG4  = "SIGNAL  QUALITY  IS  NOT  VALID  - MUST  BE  0,  1,  2,  3,  4 OR  5" 
TMSG5  = "FMCODE  IS  NOT  VALID  - SOURCE  SYSTEM  MUST  BE" 

TMSG6  = "FMCODE  IS  NOT  VALID  --  NOT  IN  DOMAIN  FAILUREMODES" 

TMSG7  = "SIGNAL  TYPE  IS  NOT  VALID  - NOT  IN  TABLE  SIGNALJABLE" 

TMSG8  = "DIMENSIONS  IS  NOT  VALID  - MUST  BE  1,  2 OR  3" 

TMSG9  = "PARAMETER  IS  NOT  VALID  - NOT  IN  TABLE  PARAMETERJABLE" 

TMSG10  = "INDICATES  FAILURE  IS  NOT  VALID  - MUST  BE  T OR  F" 

TMSG11  = "PROPAGATION  RECORD  IS  NOT  VALID  FOR  THIS  FMCODE,  " | 

"<sTGNAI  TYPF  ANn  PARAMFTFP" 

TMSG12  = "PROPAGATION  RECORD  IS  NOT  VALID  --  ALREADY  EXISTS  IN  " | 
"DOMAIN  PROPAGATIONS^" 

TMSG13  = "CONTINUE  IS  NOT  VALID  ~ MUST  BE  Y,  N OR  A" 

TMSG14  = "MORE  DATA  THIS  FAILURE  MODE/SIGNAL  IS  NOT  VALID  - MUST  BE  " I 
"Y  OR  N" 

ICNT  = 0 

JCNT  = 0 


THIS  SECTION  CALLS  PROCEDURE  CREATE_PROPAGATIONS_FIP_l  TO  ENSURE 
THAT  A PROPAGATIONS  DOMAIN  AND  DATA  FILE  EXIST  FOR  EACH  SYSTEM  IN 
DOMAIN  SYSTEMS 


: CREATE  ^PROPAGATIONS  JIPJ 
FN$DELETE_LOG( "PROC" ) 


THIS  SECTION  CALLS  PROCEDURE  FIP_STORE_l  TO  REQUEST  A SYSTEM,  READY 
THE  CORRESPONDING  DOMAIN  AND  CALL  PROCEDURE  FIP_STORE_2  TO  REQUEST 
ENTRY  OF  FAILURE  INFORMATION  PROPAGATIONS  FOR  THE  DESIGNATED  SYSTEM 


3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 
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J 

1 

3060 

J 

JUb  1 
3062 

: FIP  STORE  1 

3063 

FNSDELETE  LOG ( " PROPAGAT IONS") 

3064 

FNSDELETE  LOG ("PROPAGATIONS  FILE") 

3065 

FNSDELETE  LOG( "PROC") 

3066 

END-PROCEDURE 

3067 
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DEFINE  PROCEDURE  FIP  STORE  1 


LOOP  TO  REQUEST  SYSTEM  FOR  WHICH  FAILURE  INFORMATION  PROPAGATIONS 
ARE  TO  BE  ENTERED  AND  VERIFY  THAT  THIS  SYSTEM  EXISTS  IN  DOMAIN  SYSTEMS 


FLG1  = 11 N" 

TCONTINUE1  = "Y" 

WHILE  FLG1  = "N"  AND 

TCONTINUE1  = "Y" 

BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 
PRINT  SKIP  3, 

"=====  STORE  FAILURE  INFORMATION  PROPAGATIONS  =====", 

SKIP  1 

TSYSTEM  = FN$UPCASE(*. “SYSTEM") 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM 
FLG1  = "Y" 

IF  FLG1  = "N"  THEN 
BEGIN 

PRINT  SKIP  2,  "System",  SPACE  1,  TSYSTEM  (-)  USING  X(4), 
SPACE  1,  "is  not  defined  in  domain  SYSTEMS.",  SKIP  1 
TCONTINUE1  = "X" 

WHILE  TCONTINUE1  NE  "Y"  AND 
TCONTINUE1  NE  "N" 

BEGIN 

PRINT  SKIP  1,  "Do  you  wish  to  continue?",  SKIP  1 
TCONTINUE1  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

IF  TCONTINUE1  = "N"  THEN 
BEGIN 

CAL  = "NOW" 

PRINT  NEW_PAGE 
: CLRSCRN 
PRINT  SKIP  2, 

" STORE  PROPAGATIONS",  SKIP  2, 

"=====  END:  ",  SPACE  0, 

CAL  (-)  USING  X( 17 ) , 

SPACE  0,  " ====*",  SKIP  2, 
»=====================================",  SKIP  3 

ABORT 


END 


3068 

3069 

3070 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 

3092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 
31  12 

3113 

3114 

3115 

3116 
31  17 
3118 


END 


END 
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DATATRIEVE  LOG I CALS  ARE  CREATED  TO  REPRESENT  THE  NAMES  OF  THE 
PROPAGATIONS  DOMAIN  AND  DATA  FILE  ASSOCIATED  WITH  THE  CURRENT 
SYSTEM.  THE  DOMAIN  IS  NAMED  “PR0PAGATI0NS_X999”  WHERE  “X999" 
IS  THE  CURRENT  SYSTEM.  THE  DATA  FILE  IS  NAMED 
"DEVS206 : [BCDSSME2 . DATA] PROPAGAT IONS_X999 . DAT11 


IF  FN$TRANS_LOG(  “PROPAGATIONS" ) NE  “PROPAGATIONS1*  THEN 
FN$DELETE_LOG( “PROPAGATIONS" ) 

FN$CREATE_LOG( “PROPAGATIONS” , "PROPAGATIONS^"  | TSYSTEM) 

IF  FN$TRANSJ-OG( “PROPAGATIONS _FILE“)  NE  “PROPAGATIONS JILE"  THEN 
FN$DELETE_LOG ( "PROPAGATIONS^ I LE “ ) 

FN$CREATE_LOG(  “PROPAGATIONSJILE" , 

,,DEV$206 : [ BCDSSME2 . DATA] PROPAGATIONS^'  | TSYSTEM  | M .DAT" ) 


READY  THE  PROPAGATIONS  DOMAIN  FOR  THE  CURRENT  SYSTEM 


READY  PROPAGATIONS  SHARED  WRITE 


PROCEDURE  FIP_STORE_2  IS  CALLED  TO  REQUEST  INPUT  OF  FAILURE 
INFORMATION  PROPAGATIONS  FOR  THE  CURRENT  SYSTEM 


:FIP_STORE_2 

END-PROCEDURE 


31  19 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 
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DEFINE  PROCEDURE  FIP_ST0RE_2 


PRIMARY  LOOP  TO  STORE  PROPAGATIONS 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR 
CORRECTION  OF  INVALID  INFORMATION 

2.  IF  TCONTINUE2  NE  "A",  SECTION  TO  REARRANGE  THE  VARIABLES 
ASSOCIATED  WITH  COMMENTS 

3.  IF  TC0NTINUE2  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN 

P ROP AG AT I ONS_X999  AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED 
("X999M  REPRESENTS  THE  CURRENT  SYSTEM  BEING  PROCESSED) 

4.  IF  TC0NTINUE2  NE  MA\  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN 
PROPAGATIONS J(999  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE 

5.  IF  TC0NTINUE2  = "A\  SECTION  TO  PRINT  MESSAGE  THAT  DATA 
CURRENTLY  ON  FORM  HAS  NOT  BEEN  STORED 

6.  IF  TC0NTINUE2  = "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
ENTERING  DATA  FOR  CURRENT  SYSTEM 

7.  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  PROCEDURE  OR  EXIT  TO 
MENU 


TCONTINUE2  = MYM 
TFAILSAME  = "N" 

WHILE  TC0NTINUE2  * HYH 
BEGIN 


LOOP  TO  DISPLAY  BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON 
THE  FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF 
INVALID  DATA 


FLG1  = "N” 

I MSG  = 1 

WHILE  FLG1  * "NM 
BEGIN 


IF 

I MSG  = 1 

THEN  TMSG  = TMSG1 

IF 

I MSG  = 2 

THEN  TMSG  = TMSG2  1 

| " " | TSYSTEM 

IF 

I MSG  = 3 

THEN  TMSG  = TMSG3 

IF 

I MSG  = 4 

THEN  TMSG  = TMSG4 

IF 

I MSG  = 5 

THEN  TMSG  = TMSG5  | 

| " " | TSYSTEM 

IF 

I MSG  = 6 

THEN  TMSG  = TMSG6 

IF 

I MSG  = 7 

THEN  TMSG  = TMSG7 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 
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FOR  FIRST  1 PROPAGATIONS  FORM 
BEGIN 

D I SPLAY  JORM  P ROPAGAT I ONS_STO_FORM 
DEVS206: [ BC0SSME2 . FORMS ] FORMSL IB 
BEGIN 

IF  I MSG  NE  1 THEN 
BEGIN 

PUT  FORM  CODE_NUMBER  = 
PUT_FORM  QUALITY 
PUTJORM  FAILSAME 
END 

IF  I MSG  = 1 AND 
TFAILSAME  = "N"  THEN 
BEGIN 

PUT_FORM  FMCODE  = " 

END 

IF  I MSG  NE  1 OR 
(IMSG  = 1 AND 
TFAILSAME  = "Y")  THEN 
BEGIN 

PUT_FORM  FMCODE 
PUT_FORM  SIGNAL_TYPE 
PUTJORM  DIMENSIONS 
PUT  FORM  MAX_FREQ_TIME 
PUTJORM  MINJREQJIME 
PUTJORM  PARAM 
PUTJORM  DURATION 
PUTJORM  ONSET 
PUTJORM  FAILURE 
PUT  FORM  COMMENT_l 
PUTJORM  COMMENTJ 
PUT  FORM  COMMENTJ 
END 

IF  IMSG  = 1 THEN 


IN 

.RLB  USING 


TCODENO 

TSIGQUAL 

TFAILSAME 


TFMCODE 

TSIG 

TDIM 

TMAXFT 

TMINFT 

TPAR 

TSYMDUR 

TPDONSET 

TINDFAIL 

TCOMMENT1 

TCOMMENT2 

TCOMMENT3 
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BEGIN  3260 

PUT_FORM  FAILSAME  = "YH  326 i 

END  3262 

PUT_FORM  CONTINUE  = TC0NTINUE2  3263 

PUT_FORM  MESSAGE  = TMSG  3264 

END  RETRIEVE  USING  3265 

BEGIN  3266 

TCODENO  = GETFORM  CODENUMBER  3267 

TSYSMODA  = FN$STR_EXTRACT( TCODENO,  1,8)  3268 

TCONNECTU  = FN$STR_EXTRACT( TCODENO,  9,5)  3269 

TSYSMODB  = FN$STR_EXTRACT (TCODENO ,14,8)  3270 

IF  TSYSMODA  > TSYSMODB  THEN  327 1 

BEGIN  3272 

TCODENO  = TSYSMODB  1 1 TCONNECTU  1 1 TSYSMODA  3273 

END  3274 

TFMCODE  = GET_FORM  FMCODE  3275 

TSIG  = GETJORM  SIGNAL_TYPE  3276 

TDIM  = GET  FORM  DIMENSIONS  3277 

TSIGQUAL  = GETJORM  QUALITY  3278 

TMAXFT  = GET  FORM  MAX  FREQTIME  3279 

TMINFT  = GETJORM  MINJREQ  TIME  3280 

IF  TMAXFT  < TMINFT  THEN  3281 

BEGIN  3282 

TMAXFT  = GETJORM  MINJREQJIME  3283 

TMINFT  = GETJORM  MAXJREQJIME  3284 

END  3285 

TPAR  = GET  FORM  PARAM  3286 

TSYMDUR  = GETJORM  DURATION  3287 

TPDONSET  = GET  FORM  ONSET  3288 

TINDFAIL  = GET"FORM  FAILURE  3289 

TC0MMENT1  = GETJORM  C0MMENT_1  3290 

TC0MMENT2  = GETJORM  COMMENTJ  3291 

TC0MMENT3  = GETJORM  COMMENTJ  3292 

TC0NTINUE2  = GET  FORM  CONTINUE  3293 

TFAILSAME  = GETJORM  FAILSAME  3294 

END  3295 

END  3296 


3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 


IF  TC0NTINUE2  NE  "A”  THEN  3307 

BEGIN  3308 

I = 1 3309 

WHILE  I LE  5 3310 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TSIG,  TPAR,  TC0MMENT1, 
TC0MMENT2  AND  TC0MMENT3  ARE  REMOVED 
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BEGIN  3311 

IF  I = 1 THEN  TEMP  = TSIG  3312 

IF  I = 2 THEN  TEMP  = TPAR  3313 

IF  I = 3 THEN  TEMP  = TCOMMENT1  331 4 

IF  I = 4 THEN  TEMP  = TCOMMENT2  3315 

IF  I = 5 THEN  TEMP  = TCOMMENT3  331 6 

IF  TEMP  NE  " " THEN  3317 

BEGIN  3318 

J = 1 3319 

WHILE  FN$STR_EXTRACT ( TEMP , J,  1)  = " " 3320 

BEGIN  3321 

J = J + 1 3322 

END  3323 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  249  - J + 1)  3324 

END  3325 

IF  I = 1 THEN  TSIG  = TEMP  3326 

IF  I = 2 THEN  TPAR  = TEMP  3327 

IF  I = 3 THEN  TCOMMENT1  = TEMP  3328 

IF  I = 4 THEN  TCOMMENT2  = TEMP  3329 

IF  I = 5 THEN  TC0MMENT3  = TEMP  3330 

1=1+1  3331 

END  3332 

END  3333 


3334 

3335 

3336 

3337 

3338 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

FLG1  = "Y"  3359 

IF  TC0NTINUE2  NE  "A"  THEN  3360 

BEGIN  336i 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TSYSA  OR  TSYSB  IS  EQUAL  TO  TSYSTEM 

2.  TCODENO  IS  IN  DOMAIN  CONNECTIONS 

3.  TSIGQUAL  IS  0,  1,  2,  3,  4 OR  5 

4.  TSSYS  IS  EQUAL  TO  TSYSTEM 

5.  TFMCODE  IS  IN  DOMAIN  FAILUREMODES 

6.  TSIG  IS  IN  TABLE  SIGNAL_TABLE 

7.  TDIM  IS  1,  2 OR  3 

8.  TPAR  IS  IN  TABLE  PARAMETER_TABLE 

9.  TINDFAIL  IS  "T"  OR  "F" 

10.  TFMCODE,  TSIG  AND  TPAR  HAVE  A VALID  PROPAGATION  PATH 
TO  CONNECTION  = TCODENO 

11.  TCODENO,  TFMCODE,  TSIG  AND  TPAR  DO  NO  ALREADY  EXIST  IN 
DOMAIN  P ROP AGAT 1 0NS_X999  WHERE  "X999"  REPRESENTS  THE 
CURRENT  SYSTEM 

12.  TC0NTINUE2  IS  "Y",  "N"  OR  "A" 

13.  TFAILSAME  IS  "Y"  OR  HN" 
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TSYSA  = FNSSTR  EXTRACT (TCODENO, 

1,  4) 

3362 

TSYSB  = FNSSTR  EXTRACT (TCODENO, 

14,  4) 

3363 

IF  TSYSA  NE  TSYSTEM  AND 

3364 

TSYSB  NE  TSYSTEM  THEN 

3365 

BEGIN 

3366 

FLG1  = "N" 

3367 

I MSG  * 2 

3368 

END 

3369 

IF  FLG1  = "Y"  THEN 

3370 

BEGIN 

3371 

FLG2  = "N" 

3372 

FOR  CONNECTIONS  WITH  CODE 

NUMBER  = 

TCODENO 

3373 

BEGIN 

3374 

FLG2  = "Y" 

3375 

TTSYSMODA  = SYSTEM  MODULE  A 

3376 

TTSYSMODB  = SYSTEM  MODULE  B 

3377 

END 

3378 

IF  FLG2  = "N"  THEN 

3379 

BEGIN 

3380 

FLG1  = "N" 

3381 

I MSG  = 3 

3382 

END 

3383 

END 

3384 

IF  FLG1  = "Y"  THEN 

3385 

BEGIN 

3386 

IF  TSIGQUAL  NE  0 AND 

3387 

TSIGQUAL  NE  1 AND 

3388 

TSIGQUAL  NE  2 AND 

3389 

TSIGQUAL  NE  3 AND 

3390 

TSIGQUAL  NE  4 AND 

3391 

TSIGQUAL  NE  5 THEN 

3392 

BEGIN 

3393 

FLG1  = "N" 

3394 

I MSG  = 4 

3395 

END 

3396 

END 

3397 

IF  FLG1  = "Y"  THEN 

3398 

BEGIN 

3399 

TSSYS  = FNSSTR  EXTRACT (TFMCODE,  1, 

4) 

3400 

IF  TSSYS  NE  TSYSTEM  THEN 

3401 

BEGIN 

3402 

FLG1  = "N" 

3403 

I MSG  = 5 

3404 

END 

3405 

END 

3406 

IF  FLG1  = "Y"  THEN 

3407 

BEGIN 

3408 

FLG2  = "N" 

3409 

FOR  FAILUREMODES  WITH  FMCODE  = TFMCODE 

3410 

BEGIN 

3411 

FLG2  = "Y" 

3412 

TSSYSMOD  = SOURCE_SYSTEM_MODULE 
END 

IF  FL62  = "N"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 6 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

IF  TSIG  NOT  IN  SIGNAL_TABLE  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 7 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

IF  TDIM  NE  1 AND 

TDIM  NE  2 AND 

TDIM  NE  3 THEN 

BEGIN 

FLG1  = "N" 

I MSG  = 8 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

IF  TPAR  NOT  IN  PARAMETER_TABLE  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 9 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

IF  TINDFAIL  NE  "T”  AND 
TINDFAIL  NE  "F"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 10 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

FLG2  = "N" 

IF  TSSYSMOD  = TTSYSMODA  OR 
TSSYSMOD  = TTSYSMODB  THEN 
BEGIN 

FLG2  = "Y" 

END 


3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 
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IF 

FLG2  = "N"  THEN 

3464 

BEGIN 

3465 

FOR  CONNECTIONS  WITH 

3466 

((SYSTEM  MODULE  A = TTSYSMODA) 

OR 

3467 

(SYSTEM  MODULE  A = TTSYSMODB) 

OR 

3468 

(SYSTEM  MODULE  B = TTSYSMODA) 

OR 

3469 

(SYSTEM  MODULE  B = TTSYSMODB))  AND  NOT 

3470 

(SYSTEM  MODULE  A = TTSYSMODA 

AND 

3471 

SYSTEM  MODULE  B = TTSYSMODB) 

3472 

BEGIN 

3473 

TTCODENO  = CODE  NUMBER 

3474 

FOR  PROPAGATIONS  WITH 

3475 

FMCODE  = TFMCODE 

AND 

3476 

CODE  NUMBER  = TTCODENO  AND 

3477 

SIGNAL  TYPE  = TSIG 

AND 

3478 

PARAMETER  = TPAR 

3479 

BEGIN 

3480 

FLG2  = "Y" 

3481 

END 

3482 

END 

3483 

END 

3484 

IF 

FLG2  = "N"  THEN 

3485 

BEGIN 

3486 

FLG1  = "N" 

3487 

I MSG  = 11 

3488 

END 

3489 

END 

3490 

IF  FLG1  * 

• "YM  THEN 

3491 

BEGIN 

3492 

FOR  PROPAGATIONS  WITH 

3493 

FMCODE  = TFMCODE  AND 

3494 

CODE  NUMBER  = TCODENO  AND 

3495 

SIGNAL  TYPE  = TSIG  AND 

3496 

PARAMETER  = TPAR 

3497 

BEGIN 

3498 

FLG1  = MN" 

3499 

I MSG  = 12 

3500 

END 

3501 

END 

3502 

IF  FLG1  * 

= "Y"  THEN 

3503 

BEGIN 

3504 

IF  TCONTINUE2  NE  "Y"  AND 

3505 

TCONTINUE2  NE  "N"  AND 

3506 

TCONTINUE2  NE  "A"  THEN 

3507 

BEGIN 

3508 

FLG1  = "N" 

3509 

I MSG  = 13 

3510 

END 

3511 

END 

3512 

IF  FLG1  = 

■ "Y"  THEN 

3513 

BEGIN 

3514 
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IF  TFAILSAME  NE  "Y"  AND  3515 

TFAILSAME  NE  "N"  THEN  35 i 6 

BEGIN  3517 

FLG1  = "N"  3518 

I MSG  =14  3519 

END  3520 

END  3521 

END  3522 

END  3523 


3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 


3534 

IF  TC0NTINUE2  NE  "A"  THEN  3535 

BEGIN  3536 

TEMP  = TC0MMENT1  | | "#$#“  | TC0MMENT2  | | "#$#"  | TC0MMENT3  | | "#$#"  3537 

I = 1 3538 

WHILE  I LE  3 3539 

BEGIN  3540 

J = 1 3541 

WHILE  J = 1 3542 

BEGIN  3543 

J = FN$STR_LOC(TEMP,  "#$#")  3544 

IF  J = 0 THEN  TCOMMENT  = " " 3545 

IF  J = 1 THEN  TEMP  = FN$STR_EXTRACT ( TEMP , 4,  246)  3546 

IF  J GT  1 THEN  3547 

BEGIN  3548 

TCOMMENT  = FN$STR_EXTRACT ( TEMP , 1,  J - 1)  3549 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  249  - J + 1)  3550 

END  3551 

END  3552 

IF  I = 1 THEN  TC0MMENT1  = TCOMMENT  3553 

IF  I = 2 THEN  TC0MMENT2  = TCOMMENT  3554 

IF  I = 3 THEN  TC0MMENT3  = TCOMMENT  3555 

1 = 1 + 1 3556 

END  3557 

END  3558 

3559 

3560 

3562 

IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  IS  STORED  IN  3563 

DOMAIN  P ROP AG AT 1 0NS_X999  WHERE  "X999"  REPRESENTS  THE  CURRENT  SYSTEM  3564 

3565 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TC0MMENT1,  TC0MMENT2  AND  TC0MMENT3  SO  THAT  THE  FIRST 
VALUE  WHICH  IS  NOT  BLANK  IS  TC0MMENT1  AND  THE  SECOND  VALUE  WHICH 
IS  NOT  BLANK  IS  TC0MMENT2 
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IF  TC0NTINUE2  NE  "A"  THEN 
BEGIN 

CAL  = "NOW" 

STORE  PROPAGATIONS  USING 
BEGIN 

DATE_CREATED 
FMCODE 
CODEJUMBER 
SIGNAL_TYPE 
SIGNALJNITS 
DIMENSIONS 
SIGNAL_QUALITY 
MAX_FREQ_OR_TIME 
MIN_FREQ_OR_TIME 
FT_UNITS 
PARAMETER 
PARAMETER_UNITS 
SYMPTOMJURATION 
PERIOD_OF  ONSET 
INDICATES_FAILURE 
COMMENT 1 
COMMENT2 
COMMENT3 
END 
END 


= CAL 
= TFMCODE 
= TCODENO 
= TSIG 

= TSIG  VIA  SIGNAL_TABLE 
= TDIM 
= TSIGQUAL 
= TMAXFT 
= TMINFT 

= TSIG  VIA  FREQ_TIME_UNITS_TABLE 
= TPAR 

= TPAR  VIA  PARAMETER_TABLE 
= TSYMDUR 
= TPDONSET 
= TINDFAIL 
= TCOMMENT1 
= TCOMMENT2 
= TCOMMENT3 


IF  TCONTINUE2  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN 
P ROP AGAT I ONS_X999  IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENTS 
WILL  BE  INCLUDED  IN  THE  SESSION  LOG  FILE  WHICH  IS  OPENED  BY  THE 
CALLING  COMMAND  PROCEDURE. 


IF  TCONTINUE2  NE  "A"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 

FOR  PROPAGATIONS  WITH  FMCODE  = TFMCODE  AND 

CODEJUMBER  = TCODENO  AND 
SIGNAL_TYPE  = TSIG  AND 
PARAMETER  = TPAR 

PRINT  SKIP  2, 

COL  1,  "RECORD  NO.",  SPACE  1, 

ICNT  (-)  USING  ZZ9,  SKIP  1, 

COL  1,  ■•====================«,  SPACE  0, 
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3595 

3596 

3597 

3598 

3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 

3607 

3608 

3609 

3610 
361  1 

3612 

3613 

3614 

3615 

3616 
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t 


====================  SPACE  0,  3617 

••==  ===  = = =======„====•',  SPACE  0,  3618 

»====================",  SKIP  2,  3619 

COL  3,  "DATE_CREATED  SPACE  1,  3620 

CAL  (-)  USING  X( 23) , SKIP  1,  362i 

COL  3,  "FMCODE  SPACE  1,  3622 

TFMCODE  (-)  USING  X(20),  SKIP  1,  3623 

COL  3,  "CODE_NUMBER  SPACE  1,  3624 

TCODENO  (-)USING  X(21),  SKIP  1,  3625 

COL  3,  "SIGNAL_TYPE  SPACE  1,  3626 

TSIG  (-)  USING  X( 20) , SKIP  1,  3627 

COL  3,  "SIGNAL_UNITS  SPACE  1,  3628 

(TSIG  VIA  SIGNAL_TABLE)  (-)  USING  X(25),  SKIP  1,  3629 

COL  3,  “DIMENSIONS  :\  SPACE  1,  3630 

TDIM  (-)  USING  9(1),  SKIP  1,  363i 

COL  3,  "SIGNAL_QUALITY  SPACE  1,  3632 

TSIGQUAL  (-)  USING  9(1),  SKIP  1,  3633 

COL  3,  ”MAX_FREQ_OR_TIME  SPACE  1,  3634 

TMAXFT  (-)  USING  -Z9,  SKIP  1,  3635 

COL  3,  "MIN_FREQ_OR_TIME  SPACE  1,  3636 

TMINFT  (-)  USING  -Z9,  SKIP  1,  3637 

COL  3,  “FTJJNITS  SPACE  1,  3638 

(TSIG  VIA  FREQ_TIME_UNITS_TABLE)  (-)  USING  X(25),  3639 

SKIP  1,  3640 

COL  3,  "PARAMETER  SPACE  1,  364 1 

TPAR  (-)  USING  X( 20) , SKIP  1,  3642 

COL  3,  "PARAMETERJJNITS  SPACE  1,  3643 

(TPAR  VIA  PARAMETER_TABLE)  (-)  USING  X(25),  SKIP  1,  3644 

COL  3,  "SYMPTOM_DURATION  SPACE  1,  3645 

TSYMDUR  (-)  USING  -Z9,  SKIP  1,  3646 

COL  3,  "PERIOD_OF_ONSET  SPACE  1,  3647 

TPDONSET  (-)  USING  -Z9,  SKIP  1,  3648 

COL  3,  “ IND I CATES_FAI LURE  SPACE  1,  3649 

TINDFAIL  (-)  USING  X(l),  SKIP  1,  3650 

COL  3,  "C0MMENT1  SPACE  1,  365 1 

TC0MMENT1  (-)  USING  T(50),  SKIP  1,  3652 

COL  3,  "C0MMENT2  SPACE  1,  3653 

TC0MMENT2  (-)  USING  T(50),  SKIP  1,  3654 

COL  3,  "C0MMENT3  SPACE  1,  3655 

TC0MMENT3  (-)  USING  T(50),  SKIP  2,  3656 

COL  1,  "====================",  SPACE  0,  3657 

"====================" ) SPACE  0,  3658 

"====================" ( SPACE  0,  3659 

“======r========rs==="  3660 

IF  JCNT  = 2 THEN  JCNT  =0  366 i 

: BELL  3662 

END  3663 

3664 

3665 
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IF  TC0NTINUE2  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE 
THAT  THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED. 
THIS  MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE2  = "A"  THEN 
BEGIN 


JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 
PRINT  SKIP  3, 


COL  1, 


COL  9, 
COL  9, 
COL  9, 
COL  1, 


===s==s=======s=s===,.  $pACE 

====================••,  SPACE  0, 

====================»,  SPACE  0, 

====================»,  SKIP  7, 

*******************************n 

*****  REC0RD  NOT  STORED  *****" 

★★★***,*************‘****-********« 

sss:s::::::s:s::ss:sN , SPACE  0, 

=«=================»,  SPACE  0, 

sssss=s===sssa=2ssss.,  SPACE  Qy 


, SKIP  2, 
, SKIP  2, 
, SKIP  7, 


IF  JCNT  = 2 THEN  JCNT  = 0 
END 


IF  TC0NTINUE2  EQUALS  "A",  A RESPONSE  IS  REQUESTED  TO  CONTINUE 
ENTERING  FAILURE  INFORMATION  PROPAGATIONS  FOR  SYSTEM  = TSYSTEM 


IF  TCONTINUE2  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE 
; CLRSCRN 

TC0NTINUE2  = "X" 

WHILE  TC0NTINUE2  NE  "Y"  AND 
TC0NTINUE2  NE  "NM 
BEGIN 

PRINT  SKIP  3, 

"Do  you  wish  to  continue  entering",  SKIP  1, 
"FAILURE  INFORMATION  PROPAGATIONS",  SKIP  1, 
"for  system",  SPACE  1,  TSYSTEM  (-)  USING  X(4), 

cpApp  n ,,?H  QKTP  1 

TCONTINUE2  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

TFAILSAME  = "N" 

END 
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□ 


ND 


SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  ENTERING  FAILURE  INFORMATION 
PROPAGATIONS  FOR  A NEW  SYSTEM  OR  TO  EXIT  PROCEDURE.  IF  TCONTINUE3  IS 
EQUAL  TO  "Y\  PROCEDURE  FIP_STORE_l  IS  CALLED  TO  REQUEST  A NEW  SYSTEM. 
IF  TCONTINUE3  IS  EQUAL  TO  "N",  PROCEDURE  DTR_NULL  IS  CALLED  TO 
TERMINATE  STORING  FAILURE  INFORMATION  PROPAGATIONS 


PRINT  NEW_PAGE 
: CLRSCRN 

TCONTINUE3  = "X" 

WHILE  TCONTINUE3  NE  "Y"  AND 
TCONTINUE3  NE  "N" 

BEGIN 

PRINT  SKIP  3, 

"Do  you  wish  to  continue  entering",  SKIP  1, 
"FAILURE  INFORMATION  PROPAGATIONS",  SKIP  1, 

"for  another  system?",  SKIP  1 
TCONTINUE3  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

IF  FN$TRANS_LOG ( " PROC " ) NE  "PROC"  THEN 
FN$DELETE_LOG ( " PROC " ) 

CHOICE 

TCONTINUE3  = MY"  THEN  FN$CREATE_LOG( “PROC" , "FIP_STORE_l" ) 
TCONTINUE3  = “N"  THEN  FN$CREATE_LOG( “PROC " , ,,DTR_NULL" ) 
END_CHOICE 
:PROC 

END-PROCEDURE 


3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 


F-101 


Datatrieve  Procedure  FM  MODIFY 


DEFINE  PROCEDURE  FM  MODIFY 


VARIABLES  ASSOCIATED  WITH  FIRST  FIVE  INPUT  FIELDS  FOR 
DOMAIN  FAILUREMODES: 

1.  SOURCE_SYSTEM 

2.  SOURCE_MODULE 

3.  FAILURE_MODE_SUBMODE 

4.  ACCOMPLICE_SYSTEM 

5.  ACCOMPLICE  MODULE 


DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 


TSSYSTEM 

TSMODULE 

NSMODULE 

TSMODULE1 

TSM0DULE2 

TSM0DULE3 

TSM0DULE4 

TFMSUBM 

TASYSTEM 

TAMODULE 

NAMODULE 

TAMODULE1 

TAMODULE2 

TAMODULE3 

TAMODULE4 

TFMCODE 


PIC  X(4) . 
PIC  X(4). 
PIC  9(4). 
PIC  X(l). 
PIC  X(l). 
PIC  X(l). 
PIC  X(l). 
PIC  X(4) . 
PIC  X(4) . 
PIC  X(4) . 
PIC  9(4). 
PIC  X(l). 
PIC  X(l). 
PIC  X(l). 
PIC  X(l). 
PIC  X( 20) 


VARIABLES  ASSOCIATED  WITH  DESCRIPTION 


DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 

DECLARE 


TDESC1 
TDESC2 
TDESC3 
TDESC 
TTDESC1 
TTDESC2 
TTDESC3 
TTDESC 


PIC  X ( 80 ) . 
PIC  X(80) . 
PIC  X(80) . 
PIC  X(242) 
PIC  X(80) . 
PIC  X(80). 
PIC  X(80) . 
PIC  X(242) 
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VARIABLES  ASSOCIATED  WITH  EFFECTS  | 3804 

i 3805 


1 ======= 

1 

3806 

3807 

DECLARE 

TEFFECT1A 

PIC  X ( 80 ) . 

3808 

DECLARE 

TEFFECT1B 

PIC  X(80). 

3809 

DECLARE 

TEFFECT2A 

PIC  X(80). 

3810 

DECLARE 

TEFFECT2B 

PIC  X(80). 

381  1 

DECLARE 

TEFFECT3A 

PIC  X(80). 

3812 

DECLARE 

TEFFECT3B 

PIC  X(80). 

3813 

DECLARE 

TEFFECT4A 

PIC  X ( 80 ) . 

3814 

DECLARE 

TEFFECT4B 

PIC  X(80). 

3815 

DECLARE 

TEFFECT5A 

PIC  X ( 80 ) . 

3816 

DECLARE 

TEFFECT5B 

PIC  X ( 80 ) . 

3817 

DECLARE 

TEFFECT6A 

PIC  X(80). 

3818 

DECLARE 

TEFFECT6B 

PIC  X(80). 

3819 

DECLARE 

TEFFECT1 

PIC  X( 161) . 

3820 

DECLARE 

TEFFECT2 

PIC  X( 161 ) . 

3821 

DECLARE 

TEFFECT3 

PIC  X( 161 ) . 

3822 

DECLARE 

TEFFECT4 

PIC  X(161) . 

3823 

DECLARE 

TEFFECT5 

PIC  X( 161) . 

3824 

DECLARE 

TEFFECT6 

PIC  X(161). 

3825 

DECLARE 

TTEFFECT1A 

PIC  X ( 80 ) . 

3826 

DECLARE 

TTEFFECT1B 

PIC  X(80). 

3827 

DECLARE 

TTEFFECT2A 

PIC  X(80). 

3828 

DECLARE 

TTEFFECT2B 

PIC  X(80). 

3829 

DECLARE 

TTEFFECT3A 

PIC  X(80). 

3830 

DECLARE 

TTEFFECT3B 

PIC  X ( 80 ) . 

3831 

DECLARE 

TTEFFECT4A 

PIC  X(80). 

3832 

DECLARE 

TTEFFECT4B 

PIC  X(80). 

3833 

DECLARE 

TTEFFECT5A 

PIC  X(80). 

3834 

DECLARE 

TTEFFECT5B 

PIC  X(80). 

3835 

DECLARE 

TTEFFECT6A 

PIC  X ( 80 ) . 

3836 

DECLARE 

TTEFFECT6B 

PIC  X(80). 

3837 

DECLARE 

TTEFFECT1 

PIC  X( 161 ) . 

3838 

DECLARE 

TTEFFECT2 

PIC  X( 161 ) . 

3839 

DECLARE 

TTEFFECT3 

PIC  X(161). 

3840 

DECLARE 

TTEFFECT4 

PIC  X(161). 

3841 

DECLARE 

TTEFFECT5 

PIC  X(161). 

3842 

DECLARE 

TTEFFECT6 

PIC  X( 161 ) . 

3843 

DECLARE 

TTEFFECT 

PIC  X(161). 

3844 

j 

3845 

i 

3846 

o o A T 

1 __  = = = = . 
J 

3847 

3848 

! VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  DESCRIPTION  AND  I 

3849 

! EFFECTS 

3850 

| 

1 = = = = = = 

3851 

3852 

3853 

3854 


DECLARE  TEMPI  PIC  X(80) 
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DECLARE  TEMP2 
DECLARE  TEMP3 
DECLARE  TEMP4 
DECLARE  TEMP5 
DECLARE  TEMP6 

t 

j 

PIC  X(80) . 
PIC  X(80) . 
PIC  X(80) . 
PIC  X(242) . 
PIC  X(984) . 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

! 

3862 

3863 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 

3864 

I 

3865 

3866 

I 

3867 

DECLARE  TCONTINUE1 

PIC  X(l). 

3868 

DECLARE  TCONTINUE2 

PIC  X(l). 

3869 

DECLARE  I MSG 

PIC  9(2). 

3870 

DECLARE  FLG1 

PIC  X(l). 

3871 

DECLARE  FLG2 

PIC  X(l). 

3872 

DECLARE  FLG3 

PIC  X(l). 

3873 

DECLARE  FLG4 

PIC  X(l). 

3874 

J 

3875 

J 

3876 

3877 

! 

3878 

! VARIABLES  USED 

TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

3879 

J 

3880 

1 :ss::ss:s:::::::s 

3881 

J 

3882 

DECLARE  TMSG 

PIC  X(80) . 

3883 

DECLARE  TMSG1 

PIC  X(80) . 

3884 

DECLARE  TMSG2 

PIC  X ( 80 ) . 

3885 

DECLARE  TMSG3 

PIC  X ( 80 ) . 

3886 

DECLARE  TMSG4 

PIC  X( 80) . 

3887 

DECLARE  TMSG 5 

PIC  X(80) . 

3888 

DECLARE  TMSG6 

PIC  X ( 80 ) . 

3889 

DECLARE  TMSG7 

PIC  X(80). 

3890 

DECLARE  TMSG8 

PIC  X(80) . 

3891 

DECLARE  TMSG9 

PIC  X( 80 ) . 

3892 

DECLARE  TMSGIO 

PIC  X(80) . 

3893 

DECLARE  TMSGIOA 

PIC  X(80) . 

3894 

DECLARE  TMSG11 

PIC  X(80) . 

3895 

DECLARE  TMSG 12 

PIC  X(80) . 

3896 

DECLARE  TMSG13 

PIC  X(80). 

3897 

DECLARE  TMSG14 

PIC  X(80). 

3898 

DECLARE  TMSG15 

PIC  X(80). 

3899 

DECLARE  TMSG16 

PIC  X( 80) . 

3900 

DECLARE  TMSG 17 

PIC  X(80). 

3901 

DECLARE  TMSG 18 

PIC  X(80) . 

3902 

DECLARE  TMSG19 

PIC  X(80) . 

3903 

DECLARE  TMSG20 

PIC  X ( 80 ) . 

3904 

DECLARE  TMSG21 

PIC  X(80) . 

3905 
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DECLARE  TMSG22  PIC  X(80).  3906 

DECLARE  TMSG23  PIC  X(80).  3907 

DECLARE  TMSG24  PIC  X(80).  3908 

• 3909 

! 3910 

j 3912 

! VARIABLES  USED  AS  COUNTERS  39 i 3 

• 3914 

! 3916 

DECLARE  ICNT  PIC  9(4).  3917 

DECLARE  JCNT  PIC  9(4).  3918 

DECLARE  KCNT  PIC  9(4).  3919 

DECLARE  I PIC  9(4).  3920 

DECLARE  J PIC  9(4).  3921 

DECLARE  K PIC  9(4).  3922 

! 3923 

! 3924 

! 3926 

! VARIABLES  USED  TO  TEMPORARILY  STORE  FAILURE  MODE  DATA  FOR  COMPARISON  3927 

! OF  INITIAL  AND  MODIFIED  VALUES  3928 

! 3929 

! 3931 

DECLARE  HDCREATED  USAGE  DATE  3932 

EDITJTRING  X(23).  3933 

DECLARE  HFMCODE  PIC  X(20).  3934 

DECLARE  HDESC  PIC  X(242).  3935 

DECLARE  HEFFECT1  PIC  X(161).  3936 

DECLARE  HEFFECT2  PIC  X(161).  3937 

DECLARE  HEFFECT3  PIC  X(161).  3938 

DECLARE  HEFFECT4  PIC  X(161).  3939 

DECLARE  HEFFECT5  PIC  X(161).  3940 

DECLARE  HEFFECT6  PIC  X(161).  394i 

DECLARE  HDLASTMOD  USAGE  DATE  3942 

EDITJTRING  X(23).  3943 

DECLARE  HMODPROC  PIC  X(20).  3944 

! 3945 

! 3946 

! 3948 

! VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE  3949 

! 3950 

! 3952 

DECLARE  CAL  USAGE  DATE  3953 

EDIT_STRING  X(23).  3954 

! 3955 

! 3956 
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READY  THE  DOMAINS  SYSTEMS,  MODULES,  FAILUREMODES  AND 
FAILUREMODES  JORM 


SET  ABORT 

READY  FAILUREMODES 
READY  SYSTEMS 
READY  MODULES 
READY  FAILUREMODES  FORM 


SHARED  WRITE 
SHARED  READ 
SHARED  READ 
SHARED  READ 


INITIALIZE  THE  MESSAGE  VARIABLES  AND  INITIALIZE  THE  COUNTER  (KCNT) 
USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = "DATA  MUST  BE  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS  OR  CONTINUE  " | 

"MUST  BE  N" 

TMSG3  = "SOURCE  SYSTEM  IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS" 

TMSG4  = "SOURCE  MODULE  IS  NOT  VALID  --  MUST  BE  NUMERIC  IN  RANGE  1 TO  " | 

"9999  INCLUSIVE" 

TMSG5  = "SOURCE  SYSTEM  & MODULE  IS  NOT  VALID  ~ NOT  IN  DOMAIN  MODULES" 

TMSG6  = "FAILURE  MODE  & SUBMODE  IS  NOT  VALID  - NOT  IN  TABLE  " | 

" F A I L U R E_MOD  E_SU B MOD  E_T ABLE " 

TMSG7  = "ACCOMPLICE  SYSTEM  IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS" 

TMSG8  = "ACCOMPLICE  MODULE  IS  NOT  VALID  --  MUST  BE  NUMERIC  IN  RANGE  0 " | 

"TO  9999  INCLUSIVE" 

TMSG9  = "ACCOMPLICE  SYSTEM  & MODULE  IS  NOT  VALID  ~ NOT  IN  DOMAIN  MODULES" 
TMSGIO  = "FAILURE" 

TMSGIOA  = "IS  NOT  VALID  - NOT  IN  DOMAIN  FAILUREMODES" 

TMSG11  = "SOURCE  MODULE  IS  NOT  VALID  - NOT  IN  DOMAIN  MODULES" 

TMSG12  = "ACCOMPLICE  MODULE  IS  NOT  VALID  --  NOT  IN  DOMAIN  MODULES" 

TMSG13  = "THE  FIRST  LINE  OF  THE  FAILURE  DESCRIPTION  SHOULD  NOT  END  WITH  " | 
"A  HYPENATED  WORD" 

TMSG14  = "THE  SECOND  LINE  OF  THE  FAILURE  DESCRIPTION  SHOULD  NOT  END  WITH  " | 
"A  HYPENATED  WORD" 

TMSG15  = "THE  FIRST  LINE  OF  EFFECT  1 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG16  = "THE  FIRST  LINE  OF  EFFECT  2 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG17  = "THE  FIRST  LINE  OF  EFFECT  3 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG18  = "THE  FIRST  LINE  OF  EFFECT  4 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG19  = "THE  FIRST  LINE  OF  EFFECT  5 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG20  = "THE  FIRST  LINE  OF  EFFECT  6 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG21  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y OR  N" 

TMSG22  = "NO  RECORDS  HAVE  BEEN  FOUND  WITH  THE  DATA  INDICATED  ABOVE" 

TMSG23  = "ENTER  MODIFICATIONS  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 


3957 

3958 

3959 

3960 

3961 

3962 

3963 

3964 

3965 

3966 

3967 

3968 

3969 

3970 

3971 

3972 

3973 

3974 

3975 

3976 

3977 

3978 

3979 

3980 

3981 

3982 

3983 

3984 

3985 

3986 

3987 

3988 

3989 

3990 

3991 

3992 

3993 

3994 

3995 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

4006 

4007 
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TMSG24  = "CONTINUE  IS  NOT  VALID  — MUST  BE  Y,  N OR  A" 
KCNT  = 0 


PRIMARY  LOOP  TO  MODIFY  FAILURE  MODES 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  SEARCH  DATA,  TEST  VALUES,  PROMPT  FOR  CORRECTION 
OF  INVALID  INFORMATION  AND  COUNT  THE  RECORDS  WHICH  MATCH  THE 
SPECIFIED  INPUT  FIELDS 

2.  IF  TCONTINUE1  NE  "N\  SECTION  TO  DISPLAY  THE  MATCHING  RECORDS 
ONE  AT  A TIME  FOR  POSSIBLE  MODIFICATION  (THIS  SECTION  IS 
TERMINATED  WHEN  TC0NTINUE2  = "N") 

3.  IF  TCONTINUE1  = "N\  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE1  = nY" 

WHILE  TCONTINUE1  = "Y" 
BEGIN 


LOOP  TO  DISPLAY  BLANK  TDMS  FORMS,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORMS,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


FLG1  = MN" 

IMSG  = 1 

WHILE  FLG1  = "N" 


BEGIN 

IF 

IMSG 

- 

1 

THEN 

TMSG 

IF 

IMSG 

= 

2 

THEN 

TMSG 

IF 

IMSG 

S 

3 

THEN 

TMSG 

IF 

IMSG 

= 

4 

THEN 

TMSG 

IF 

IMSG 

= 

5 

THEN 

TMSG 

IF 

IMSG 

= 

6 

THEN 

TMSG 

IF 

IMSG 

= 

7 

THEN 

TMSG 

IF 

IMSG 

= 

8 

THEN 

TMSG 

IF 

IMSG 

= 

9 

THEN 

TMSG 

IF 

IMSG 

= 

10 

THEN 

TMSG 

TMSG1 

TMSG2 

TMSG3 

TMSG4 

TMSG5 

TMSG6 

TMSG7 

TMSG8 

TMSG9 

TMSG10 


IF  IMSG  = 11  THEN  TMSG  = TMSG11 
IF  IMSG  = 12  THEN  TMSG  = TMSG 12 


TSSYSTEM  " " | TSMODULE  | 
TFMSUBM 

TASYSTEM  M " | TAMODULE  | 
TMSGIOA 


4008 

4009 

4010 
401  1 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 

4035 

4036 

4037 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 
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DISPLAY_FORM  FAI LUREMODES_F I N2  FORM  IN 

DEVS206: [BCDSSME2. FORMS ]F0RMSL IB. RLB  USING 
BEGIN 

IF  I MSG  NE  1 THEN 
BEGIN 

PUTJORM  EFFECT_2A  = TEFFECT2A 
PUT_FORM  EFFECT_2B  = TEFFECT2B 
PUT_FORM  EFFECT_3A  = TEFFECT3A 
PUTJORM  EFFECT_3B  = TEFFECT3B 
PUTJORM  EFFECT_4A  = TEFFECT4A 
PUTJORM  EFFECT_4B  = TEFFECT4B 
PUTJORM  EFFECT_5A  = TEFFECT5A 
PUTJORM  EFFECTJB  = TEFFECT5B 
PUT_FORM  EFFECTJA  = TEFFECT6A 
PUTJORM  EFFECTJB  = TEFFECT6B 
END 

PUTJORM  MESSAGE  = TMSG 
PUTJORM  CONTINUE  = TCONTINUE1 
END  RETRIEVE  USING 
BEGIN 

TEFFECT2A  = GETJORM  EFFECTJA 
TEFFECT2B  = GETJORM  EFFECTJB 
TEFFECT3A  = GETJORM  EFFECTJA 
TEFFECT3B  = GETJORM  EFFECTJB 
TEFFECT4A  = GETJORM  EFFECTJA 
TEFFECT4B  = GETJORM  EFFECTJB 
TEFFECT5A  = GETJORM  EFFECTJA 
TEFFECT5B  = GETJORM  EFFECTJB 
TEFFECT6A  * GETJORM  EFFECTJA 
TEFFECT6B  = GETJORM  EFFECTJB 
TCONTINUE1  = GETJORM  CONTINUE 
END 
END 

TSMODULE1  = FNSSTR  JXTRACT  ( TSMODULE , 1,  1) 

TSMODULE2  = FNSSTR  JXTRACT  ( TSMODULE,  2,  1) 

TSMODULE3  = FNSSTR JXTRACT( TSMODULE,  3,  1) 

TSMODULE4  = FNSSTR JXTRACT( TSMODULE,  4,  1) 

TAMODULE1  = FNSSTR JXTRACT (TAMODULE,  1,1) 

TAMODULE2  = FNSSTR  JXTRACT  ( TAMODULE,  2,  1) 

TAMODULE3  = FNSSTR  JXTRACT  ( TAMODULE,  3,  1) 

TAMODULE4  = FNSSTR JXTRACT( TAMODULE,  4,  1) 


IF  TCONTINUE1  IS  NOT  EQUAL  TO  MN",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TDESC1,  TDESC2,  TDESC3, 
TEFFECT1A,  TEFFECT1B,  TEFFECT2A,  TEFFECT2B,  TEFFECT3A, 
TEFFECT3B,  TEFFECT4A,  TEFFECT4B,  TEFFECT5A,  TEFFECT5B, 
TEFFECT6A  AND  TEFFECT6B  ARE  REMOVED 


4110 

4111 

4112 
41  13 
41  14 

4115 

4116 
41  17 
41  18 
41  19 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 

4138 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 
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! 4162 

IF  TC0NTINUE1  NE  "NH  THEN  4163 

BEGIN  . 4164 

1*1  4165 

WHILE  I LE  15  4166 

BEGIN  4167 

IF  I = 1 THEN  TEMPI  = TDESC1  4iee 

IF  I = 2 THEN  TEMPI  = TDESC2  4169 

IF  I = 3 THEN  TEMPI  = TDESC3  4170 

IF  I * 4 THEN  TEMPI  = TEFFECT1A  4i?i 

IF  I = 5 THEN  TEMPI  = TEFFECT1B  4 172 

IF  I = 6 THEN  TEMPI  = TEFFECT2A  4173 

IF  I = 7 THEN  TEMPI  = TEFFECT2B  4174 

IF  I * 8 THEN  TEMPI  = TEFFECT3A  4175 

IF  I = 9 THEN  TEMPI  = TEFFECT3B  4176 

IF  I * 10  THEN  TEMPI  * TEFFECT4A  4177 

IF  I * 11  THEN  TEMPI  = TEFFECT4B  4178 

IF  I ■ 12  THEN  TEMPI  = TEFFECT5A  4179 

IF  I = 13  THEN  TEMPI  = TEFFECT5B  4iao 

IF  I = 14  THEN  TEMPI  = TEFFECT6A  4isi 

IF  I = 15  THEN  TEMPI  = TEFFECT6B  4182 

IF  TEMPI  NE  " " THEN  4183 

BEGIN  4184 

J = 1 4185 

WHILE  FN$STR_EXTRACT( TEMPI,  J,  1)  = " " 4ise 

BEGIN  4187 

J = J + 1 4188 

END  4189 

TEMPI  = FNSSTR  EXTRACT (TEMPI,  J,  80  - J + 1)  4190 

END  " 4191 

IF  I = 1 THEN  TDESC1  * TEMPI  4192 

IF  I * 2 THEN  TDESC2  = TEMPI  4193 

IF  I a 3 THEN  TDESC3  = TEMPI  4194 

IF  I * 4 THEN  TEFFECT1A  = TEMPI  4195 

IF  I = 5 THEN  TEFFECT1B  = TEMPI  4195 

IF  I » 6 THEN  TEFFECT2A  = TEMPI  4197 

IF  I = 7 THEN  TEFFECT2B  = TEMPI  4198 

IF  I = 8 THEN  TEFFECT3A  = TEMPI  4199 

IF  I * 9 THEN  TEFFECT3B  = TEMPI  4200 

IF  I = 10  THEN  TEFFECT4A  = TEMPI  4201 

IF  I = 11  THEN  TEFFECT4B  = TEMPI  4202 

IF  I = 12  THEN  TEFFECT5A  = TEMPI  4203 

IF  I » 13  THEN  TEFFECT5B  = TEMPI  4204 

IF  I = 14  THEN  TEFFECT6A  * TEMPI  4205 

IF  I * 15  THEN  TEFFECT6B  = TEMPI  4206 

1 = 1 + 1 4207 

END  4208 

END  4209 

! 4210 

! 4211 
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FOR  FIRST  1 SYSTEMS  WITH  4263 

SYSTEM  = TSSYSTEM  FLG2  = "Y"  4264 

IF  FLG2  = "N"  THEN  4265 

BEGIN  4266 

FLG1  = "N"  4267 

IMSG  = 3 4268 

END  4269 

END  4270 

IF  FLG1  = "Y"  AND  427 1 

TSMODULE  NE  " " THEN  4272 

BEGIN  4273 

FLG2  = "N"  4274 

IF  (TSM0DULE1  = " " OR  TSM0DULE1  IN  NUMBERJABLE)  AND  4275 

(TSM0DULE2  = " " OR  TSM0DULE2  IN  NUMBERJABLE)  AND  4276 

(TSM0DULE3  = " " OR  TSM0DULE3  IN  NUMBERJABLE)  AND  4277 

(TSM0DULE4  = " " OR  TSM0DULE4  IN  NUMBERJABLE)  THEN  4278 

BEGIN  4279 

NSMODULE  * TSMODULE  4280 

IF  NSMODULE  GT  0 THEN  428 i 

FLG2  = "Y"  4282 

END  4283 

IF  FLG2  = "N"  4284 

BEGIN  4285 

FLG1  = "N"  4286 

IMSG  = 4 4287 

END  4288 

END  4289 

IF  FLG1  = "Y"  AND  4290 

TSSYSTEM  NE  " " AND  429 i 

TSMODULE  NE  " " THEN  4292 

BEGIN  4293 

FLG2  = "N"  4294 

TSMODULE  = NSMODULE  4295 

IF  NSMODULE  LT  1000  THEN  TSMODULE  = "0"  TSMODULE  4296 

IF  NSMODULE  LT  100  THEN  TSMODULE  = "0"  TSMODULE  4297 

IF  NSMODULE  LT  10  THEN  TSMODULE  = "0"  TSMODULE  4298 

FOR  FIRST  1 MODULES  WITH  4299 

SYSTEM_MODULE  = TSSYSTEM  I TSMODULE  FLG2  = "Y"  4300 

IF  FLG2  = "N"  THEN  4301 

BEGIN  4302 

FLG1  = "N"  4303 

IMSG  = 5 4304 

END  4305 

END  4306 

IF  FLG1  = "Y"  AND  4307 

TFMSUBM  NE  " " THEN  4308 

BEGIN  4309 

IF  TFMSUBM  NOT  IN  FAILURE_MODE_SUBMODEJABLE  THEN  4310 

BEGIN  4311 

FLG1  = "N"  4312 

IMSG  s 6 4313 
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END 

4314 

END 

4315 

FLG1  = "Y"  AND 

4316 

TASYSTEM  NE  " " THEN 

4317 

BEGIN 

4318 

FLG2  = "N" 

4319 

IF  TASYSTEM  = " 

" THEN  FLG2  = "Y 

li 

4320 

IF  FLG2  = "N"  THEN 

4321 

FOR  FIRST  1 SYSTEMS  WITH 

4322 

SYSTEM  = TASYSTEM  FLG2  = "Y 

li 

4323 

IF  FLG2  = "N"  THEN 

4324 

BEGIN 

4325 

FLG1  = "N" 

4326 

I MSG  = 7 

4327 

END 

4328 

END 

4329 

FLG1  = "Y"  AND 

4330 

TAMODULE  NE  " " THEN 

4331 

BEGIN 

4332 

FLG2  = "N" 

4333 

IF  (TAMODULE1  = " " 

OR  TAM0DULE1  IN 

NUMBER  TABLE)  AND 

4334 

(TAMODULE2  = " " 

OR  TAM0DULE2  IN  NUMBER  TABLE)  AND 

4335 

(TAMODULE3  = " " 

OR  TAM0DULE3  IN  NUMBER  TABLE)  AND 

4336 

(TAM0DULE4  = " " 

OR  TAM0DULE4  IN  NUMBER  TABLE)  THEN 

4337 

BEGIN 

4338 

NAMODULE  = TAMODULE 

4339 

FLG2  = "Y” 

4340 

END 

4341 

IF  FLG2  = "N" 

4342 

BEGIN 

4343 

FLG1  = "N" 

4344 

I MSG  = 8 

4345 

END 

4346 

END 

4347 

FLG1  = "Y"  AND 

4348 

TASYSTEM  NE  " " AND 

4349 

TAMODULE  NE  " " THEN 

4350 

BEGIN 

4351 

FLG2  = "N" 

4352 

TAMODULE  = NAMODULE 

4353 

IF  NAMODULE  LT  1000 

THEN  TAMODULE  = 

"0"  TAMODULE 

4354 

IF  NAMODULE  LT  100 

THEN  TAMODULE  = 

"0"  TAMODULE 

4355 

IF  NAMODULE  LT  10 

THEN  TAMODULE  = 

"0“  TAMODULE 

4356 

IF  TASYSTEM  1 TAMODULE  = " 0000" 

THEN  FLG2  = "Y" 

4357 

IF  FLG2  = "N"  THEN 

4358 

FOR  FIRST  1 MODULES  WITH 

4359 

SYSTEM  MODULE  = TASYSTEM  1 TAMODULE  FLG2  = “Y" 

4360 

IF  FLG2  * "N"  THEN 

4361 

BEGIN 

4362 

FLG1  = "N" 

4363 

I MSG  = 9 

4364 
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END 

END 

IF  FLG1  = "Y"  AND 

TSSYSTEM  NE  " M AND  TSMODULE  NE  " " AND 
TFMSUBM  NE  " " AND 

TASYSTEM  NE  " " AND  TAMODULE  NE  " " THEN 
BEGIN 

FLG2  = "N" 

FOR  FAILUREMODES  WITH 

FMCODE  = TSSYSTEM  TSMODULE  | TFMSUBM  | 
TASYSTEM  TAMODULE  FLG2  = "Y" 
IF  FLG2  = "N"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 10 
END 
END 

IF  FLG1  = "Y"  AND 

TSSYSTEM  = " " AND 

TSMODULE  NE  " " THEN 

BEGIN 

FLG2  = "N" 

FOR  FIRST  1 MODULES  WITH 

MODULE  = NSMODULE  FLG2  = "Y" 

IF  FLG2  = "N"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 11 
END 
END 

IF  FLG1  = "Y"  AND 

TASYSTEM  = " " AND 

TAMODULE  NE  " " THEN 

BEGIN 


FLG2  = "N" 

TAMODULE  = NAMODULE 

IF  NAMODULE  LT  1000  THEN  TAMODULE  = "0" 

IF  NAMODULE  LT  100  THEN  TAMODULE  = "0" 

IF  NAMODULE  LT  10  THEN  TAMODULE  = "0" 

IF  TAMODULE  = "0000"  THEN  FLG2  = "Y" 

IF  FLG2  = "N"  THEN 

FOR  FIRST  1 MODULES  WITH 

MODULE  = NAMODULE  FLG2  = "Y" 

IF  FLG2  = "N"  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 12 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 


TAMODULE 

TAMODULE 

TAMODULE 
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4381 
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4383 
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4387 

4388 

4389 

4390 

4391 
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4393 

4394 

4395 
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4397 

4398 
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1=1  4416 

WHILE  FLG1  = "Y"  AND  I LE  8 4417 

BEGIN  4418 

IF  I = 1 THEN  TEMPI  = TDESC1  4419 

IF  I = 2 THEN  TEMPI  = TDESC2  4420 

IF  I = 3 THEN  TEMPI  = TEFFECT1A  442 1 

IF  I = 4 THEN  TEMPI  = TEFFECT2A  4422 

IF  I = 5 THEN  TEMPI  = TEFFECT3A  4423 

IF  I = 6 THEN  TEMPI  = TEFFECT4A  4424 

IF  I = 7 THEN  TEMPI  = TEFFECT5A  4425 

IF  I = 8 THEN  TEMPI  = TEFFECT6A  4426 

IF  TEMPI  NE  " " THEN  4427 

BEGIN  4428 

J = 80  4429 

WHILE  FN$STR_EXTRACT( TEMPI,  J,  1)  = " " 4430 

BEGIN  4431 

J = J - 1 4432 

END  4433 

IF  FN$STR_EXTRACT(TEMP1 , 4434 

J,  1)  = AND  4435 

FN$STR_EXTRACT( TEMPI,  4436 

J - 1,  1)  NE  " " AND  4437 

FN$STR_EXTRACT(TEMP1 , 4438 

J - 2,  2)  NE  " THEN  4439 

BEGIN  4440 

FLG1  = "N"  444i 

IF  I = 1 THEN  I MSG  = 13  4442 

IF  I = 2 THEN  I MSG  * 14  4443 

IF  I = 3 THEN  I MSG  = 15  4444 

IF  I = 4 THEN  I MSG  = 16  4445 

IF  I = 5 THEN  I MSG  = 17  4446 

IF  I = 6 THEN  I MSG  = 18  4447 

IF  I = 7 THEN  I MSG  = 19  4448 

IF  I = 8 THEN  I MSG  = 20  4449 

END  4450 

END  4451 

1=1+1  4452 

END  4453 

END  4454 

IF  FLG1  = "Y"  THEN  4455 

BEGIN  4456 

IF  TC0NTINUE1  NE  "Y"  AND  4457 

TC0NTINUE1  NE  "NM  THEN  4458 

BEGIN  4459 

FLG1  = "N"  4460 

I MSG  = 21  4461 

END  4462 

END  4463 

IF  FLG1  = "Y"  THEN  4464 

BEGIN  4465 

TDESC  = TDESC1  4466 


F-115 


Datatrieve  Procedure  FM_M0DIFY  (cont.) 


IF  TDESC  = " " THEN 

4467 

TDESC  = TDESC2  ELSE 

4468 

TDESC  = TDESC  ||  ■ ■ 

| TDESC2 

4469 

IF  TDESC  = " M THEN 

4470 

TDESC  = TDESC3  ELSE 

4471 

TDESC  = TDESC  II  " “ 

| TDESC3 

4472 

TEFFECT1  = TEFFECT1A 

4473 

IF  TEFFECT1  = " ■ 

THEN 

4474 

TEFFECT1  = TEFFECT1B 

ELSE 

4475 

TEFFECT1  = TEFFECT1  1 

| " " | TEFFECT1B 

4476 

TEFFECT2  = TEFFECT2A 

4477 

IF  TEFFECT2  = " " 

THEN 

4478 

TEFFECT2  = TEFFECT2B 

ELSE 

4479 

TEFFECT2  = TEFFECT2  1 

| " " | TEFFECT2B 

4480 

TEFFECT3  = TEFFECT3A 

4481 

IF  TEFFECT3  = " " 

THEN 

4482 

TEFFECT3  = TEFFECT3B 

ELSE 

4483 

TEFFECT3  = TEFFECT3  1 

| - - | TEFFECT3B 

4484 

TEFFECT4  = TEFFECT4A 

4485 

IF  TEFFECT4  = " " 

THEN 

4486 

TEFFECT4  = TEFFECT4B 

ELSE 

4487 

TEFFECT4  = TEFFECT4  1 

| " " | TEFFECT4B 

4488 

TEFFECT5  = TEFFECT5A 

4489 

IF  TEFFECT5  = " " 

THEN 

4490 

TEFFECT5  = TEFFECT5B 

ELSE 

4491 

TEFFECT5  = TEFFECT5  1 

| " " | TEFFECT5B 

4492 

TEFFECT6  = TEFFECT6A 

4493 

IF  TEFFECT6  = " " 

THEN 

4494 

TEFFECT6  = TEFFECT6B 

ELSE 

4495 

TEFFECT6  = TEFFECT6  1 

| " " | TEFFECT6B 

4496 

END 

4497 

IF  FLG1  = "Y"  THEN 

4498 

BEGIN 

4499 

FLG2  = "N" 

4500 

IF  TSSYSTEM  NE  " " AND  TSMODULE  NE  " ■ AND 

4501 

TFMSUBM  NE  " " AND 

4502 

TASYSTEM  NE  " " AND  TAMODULE  NE  " " THEN 

4503 

BEGIN 

4504 

FLG2  = MY" 

4505 

JCNT  = 0 

4506 

FOR  FAILUREMODES  WITH 

4507 

FMCODE  = TSSYSTEM  TSMODULE  1 TFMSUBM  1 

4508 

TASYSTEM  TAMODULE 

4509 

BEGIN 

4510 

FLG3  = "Y" 

4511 

IF  TDESC 

NE  " " AND 

4512 

DESCRIPTION  NE  TDESC  THEN  FLG3  = "N" 

4513 

IF  TEFFECT1 

NE  " " AND 

4514 

EFFECT1 

NE  TEFFECT1  THEN  FLG3  = "N" 

4515 

IF  TEFFECT2 

NE  " " AND 

4516 

EFFECT2 

NE  TEFFECT2  THEN  FLG3  = "N" 

4517 
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IF  TEFFECT3  NE  - " AND 

EFFECT3  NE  TEFFECT3  THEN  FLG3  = "N" 
IF  TEFFECT4  NE  " " AND 

EFFECT4  NE  TEFFECT4  THEN  FLG3  = "N" 
IF  TEFFECT5  NE  " " AND 

EFFECT5  NE  TEFFECT5  THEN  FLG3  = "N" 
IF  TEFFECT6  NE  " " AND 

EFFECT6  NE  TEFFECT6  THEN  FLG3  = "N" 
IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 1 
END 

IF  JCNT  = 0 THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 22 
END 
END 

IF  FLG2  = "N"  THEN 
BEGIN 

JCNT  = 0 
FOR  FAILUREMODES 
BEGIN 

FLG3  = "Y" 

IF  TSSYSTEM  NE  " " AND 

SOURCE_SYSTEM  NE  TSSYSTEM  THEN 

FLG3  = "N" 

IF  TSMODULE  NE  " " AND 

SOURCE_MODULE  NE  NSMODULE  THEN 

FLG3  = "N" 

IF  TFMSUBM  NE  " " AND 

FAILURE_MODE_SUBMODE  NE  TFMSUBM  THEN 

FLG3  * "N" 

IF  TASYSTEM  NE  " " AND 

ACCOMPLICE_SYSTEM  NE  TASYSTEM  THEN 

FLG3  = "N" 

IF  TAMODULE  NE  " " AND 

ACCOMPLICE_MODULE  NE  NAMODULE  THEN 

FLG3  = "N" 

IF  TDESC  NE  " " AND 

DESCRIPTION  NE  TDESC  THEN  FLG3  = "N" 

IF  TEFFECT1  NE  " " AND 

EFFECT1  NE  TEFFECT1  THEN  FLG3  = "N" 

IF  TEFFECT2  NE  “ " AND 

EFFECT2  NE  TEFFECT2  THEN  FLG3  = "N" 

IF  TEFFECT3  NE  " " AND 

EFFECT3  NE  TEFFECT3  THEN  FLG3  = "N" 

IF  TEFFECT4  NE  " " AND 

EFFECT4  NE  TEFFECT4  THEN  FLG3  = "N" 

IF  TEFFECT5  NE  " " AND 

EFFECTS  NE  TEFFECT5  THEN  FLG3  = "N" 

IF  TEFFECT6  NE  " " AND 

EFFECT6  NE  TEFFECT6  THEN  FLG3  = "N" 
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IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 1 
END 

IF  JCNT  = 0 THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 22 
END 
END 
END 
END 
END 


IF  TCONTINUE1  IS  NOT  EQUAL  TO  HN\  THIS  SECTION  DISPLAYS  THE 
INDICATED  RECORDS  ONE  AT  A TIME  AND  ALLOWS  CORRECTIONS  TO  BE  MADE 
TO  ANY  OR  ALL  OF  THE  RECORDS.  THE  FIELDS  SOURCE_SYSTEM, 
SOURCE_MODULE,  FAIL U RE_MOD E_SUBMOD E , ACCOMPLICE_SYSTEM  AND 
ACCOMPL I CE_MODULE  CANNOT  BE  CHANGED  SINCE  THESE  FIVE  FIELDS 
UNIQUELY  DEFINE  THE  FAILURE  MODE. 


IF  TCONTINUE1  NE  “N"  THEN 
BEGIN 

TCONTINUE2  = "Y" 

FLG2  = MNH 

IF  TSSYSTEM  NE  M M AND  TSMODULE  NE  “ M AND 
TFMSUBM  NE  M * AND 

TASYSTEM  NE  ■ 11  AND  TAMODULE  NE  " 11  THEN 
BEGIN 

FLG2  = "Y" 

ICNT  = 0 

FOR  FAILUREMODES  WITH 

FMCODE  = TSSYSTEM  | TSMODULE  | TFMSUBM  | 

TASYSTEM  j TAMODULE  SORTED  BY 
FMCODE 

BEGIN 

IF  TCONTINUE2  = "Y"  THEN 
BEGIN 

FLG3  = MY" 

IF  TDESC  NE  " - AND 

DESCRIPTION  NE  TDESC  THEN  FLG3  = "N" 
IF  TEFFECT1  NE  ■ ■ AND 

EFFECT1  NE  TEFFECT1  THEN  FLG3  = HNH 
IF  TEFFECT2  NE  - - AND 

EFFECT2  NE  TEFFECT2  THEN  FLG3  = "N" 
IF  TEFFECT3  NE  11  " AND 

EFFECT3  NE  TEFFECT3  THEN  FLG3  = MN" 
IF  TEFFECT4  NE  " ■ AND 
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4587 

4588 
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EFFECT4  NE  TEFFECT4  THEN  FLG3  = "NM 
IF  TEFFECT5  NE  " " AND 

EFFECTS  NE  TEFFECT5  THEN  FLG3  = "N" 
IF  TEFFECT6  NE  " " AND 

EFFECT6  NE  TEFFECT6  THEN  FLG3  = "N" 
IF  FLG3  = "Y“  THEN 
BEGIN 

ICNT  = ICNT  + 1 
:FM_MODIFY_l 
END 
END 
END 
END 

IF  FLG2  = HN"  THEN 
BEGIN 

ICNT  = 0 

FOR  FAILUREMODES  SORTED  BY  FMCODE 
BEGIN 

IF  TCONTINUE2  = "Y"  THEN 
BEGIN 

FLG3  = "Y" 

IF  TSSYSTEM  NE  11  " AND 
SOURCE_SYSTEM  NE  TSSYSTEM  THEN 
FLG3  = "N" 

IF  TSMODULE  NE  " " AND 
SOURCE_MODULE  NE  NSMODULE  THEN 
FLG3  = "N" 

IF  TFMSUBM 

FAILURE_MODE_SUBMODE 
FLG3  = "N" 

IF  TASYSTEM  NE 

ACCOMPLICE_SYSTEM  NE 
FLG3  = "N" 

IF  TAMODULE  NE 

ACCOMPLICE_MODULE  NE 
FLG3  = "N" 

IF  TDESC  NE  " " 

DESCRIPTION  NE  TDESC 
IF  TEFFECT1  NE  " " 

EFFECT1  NE  TEFFECT1 
IF  TEFFECT2  NE  " " 

EFFECT2  NE  TEFFECT2 
IF  TEFFECT3  NE  “ " 

EFFECT3  NE  TEFFECT3 
IF  TEFFECT4  NE  11  " 

EFFECT4  NE  TEFFECT4 
IF  TEFFECT5  NE  " " 

EFFECTS  NE  TEFFECT5 
IF  TEFFECT6  NE  " " 

EFFECT6  NE  TEFFECT6 
IF  FLG3  = "Y"  THEN 


NE  " " AND 
NE  TFMSUBM  THEN 

" " AND 

TASYSTEM  THEN 

" " AND 

NAMODULE  THEN 

AND 

THEN  FLG3  = "N" 
AND 

THEN  FLG3  = "N" 
AND 

THEN  FLG3  = "NH 
AND 

THEN  FLG3  = "N" 
AND 

THEN  FLG3  = "N" 
AND 

THEN  FLG3  = "N" 
AND 

THEN  FLG3  = "N" 
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END 

END 


BEGIN 

ICNT  = ICNT  + 1 
:FM  MODIFY_l 
END 
END 
END 


IF  TCONTINUE1  IS  EQUAL  TO  “N\  A RESPONSE  IS  REQUESTED  TO  CONTINUE 
MODIFYING  FAILURE  MODES 


IF  TCONTINUE1  = "N"  THEN 
BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 

TCONTINUE1  = "X" 

WHILE  TCONTINUE1  NE  "Y"  AND 
TCONTINUE1  NE  “N" 

BEGIN 

PRINT  SKIP  2, 

“Do  you  wish  to  continue  modifying11,  SKIP  1, 
“FAILURE  MODES?",  SKIP  1 
TCONTINUE1  = FN$UPCASE(*. “Y  or  N") 

PRINT  " " 

END 

END 

END 

END-PROCEDURE 
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DEFINE  PROCEDURE  FM_M0DIFY_1 


THE  FIELDS  OF  THE  INCOMING  FAILURE  MODE  RECORD  ARE  ASSIGNED  TO 
VARIABLES  FOR  DISPLAY  AND  MODIFICATION.  THE  FIELDS  SOURCE_SYSTEM, 
SOURCE_MODULE,  FAILURE_MODE_SUBMODE,  ACCOMPLICE_SYSTEM  AND 
ACCOMPLICE_MODULE  ARE  NOT  ASSIGNED  TO  VARIABLES  SINCE  THESE  FIELDS 
CANNOT  BE  MODIFIED. 


TTDESC  = DESCRIPTION 
TTEFFECT1  = EFFECT1 
TTEFFECT2  = EFFECT2 
TTEFFECT3  = EFFECT3 
TTEFFECT4  = EFFECT4 
TTEFFECT5  = EFFECTS 
TTEFFECT6  = EFFECT6 


THIS  SECTION  SPLITS  THE  COMPOSITE  VARIABLES  TTDESC  AND  TTEFFECT1 
THROUGH  TTEFFECT6  INTO  VARIABLES  WHICH  ARE  80  CHARACTERS  LONG  FOR 
DISPLAY  ON  THE  TDMS  FORM 


I = 1 

WHILE  I LE  7 
BEGIN 

IF  I = 1 THEN  TEMP5  = TTDESC 

IF  I = 2 THEN  TEMP5  = TTEFFECT1 

IF  I = 3 THEN  TEMP5  = TTEFFECT2 

IF  I = 4 THEN  TEMP5  = TTEFFECT3 

IF  I = 5 THEN  TEMP5  = TTEFFECT4 

IF  I = 6 THEN  TEMP5  = TTEFFECT5 

IF  1 = 7 THEN  TEMP5  = TTEFFECT6 

J = 1 
TEMPI  = " " 

TEMP2  = " " 

TEMP3  = " " 

WHILE  J LE  3 
BEGIN 

IF  TEMP5  NE  " " THEN 
BEGIN 
K = 1 

WHILE  FN$STR_EXTRACT(TEMP5,  K,  1)  = " " 
BEGIN 
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K = K + 1 4756 

END  4757 

TEMP5  = FNSSTR_EXTRACT ( TEMP5 , K,  242  * K + 1)  4758 

END  4759 

FLG4  = "N"  4760 

IF  FN$STR_EXTRACT ( TEMP5 , 80,  1)  = " " OR  476i 

FN$STR_EXTRACT ( TEMP5 , 81,  1)  * " " THEN  4762 

BEGIN  4763 

TEMP4  = FN$STR_EXTRACT ( TEMP5 , 1,  80)  4764 

TEMP5  = FN$STR_EXTRACT( TEMPS,  81,  162)  4765 

FLG4  = "Y"  4766 

END  4767 

IF  FLG4  = "N"  THEN  4768 

BEGIN  4769 

K = 80  4770 

WHILE  FN$STR_EXTRACT ( TEMP5 , K,  1)  NE  " " AND  4771 

K GT  1 4772 

BEGIN  4773 

K = K - 1 4774 

END  4775 

CHOICE  4776 

K * 1 THEN  TEMP4  * FN$STR_EXTRACT ( TEMP5 , 1,  80)  4777 

K GT  1 THEN  TEMP4  = FNJSTR  EXTRACT (TEMP5,  1,  K - 1 + 1)  4778 

END_CHOICE  4779 

CHOICE  4780 

K = 1 THEN  TEMP5  = FN$STR_EXTRACT ( TEMP5 , 81,  162)  478 1 

K GT  1 THEN  TEMP5  = FN$STR  EXTRACT (TEMP5,  K + 1,  4782 

242  - (K  + 1)  + 1)  4783 

END_CHOICE  4784 

END  4785 

IF  J = 1 THEN  TEMPI  = TEMP4  4786 

IF  J * 2 THEN  TEMP2  * TEMP4  4787 

IF  J = 3 THEN  TEMP3  = TEMP4  4788 

J s J + 1 4789 

END  4790 

IF  I = 1 THEN  4791 

BEGIN  4792 

TTDESC1  = TEMPI  4793 

TTDESC2  = TEMP2  4794 

TTDESC3  = TEMP3  4795 

END  4796 

IF  I = 2 THEN  4797 

BEGIN  4798 

TTEFFECT1A  = TEMPI  4799 

TTEFFECT1B  = TEMP2  4800 

END  4801 

IF  I = 3 THEN  4802 

BEGIN  4803 

TTEFFECT2A  = TEMPI  4804 

TTEFFECT2B  = TEMP2  4805 

END  4806 
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IF  I = 4 THEN 
BEGIN 

TTEFFECT3A  = TEMPI 
TTEFFECT3B  = TEMP2 
END 

IF  I = 5 THEN 
BEGIN 

TTEFFECT4A  = TEMPI 
TTEFFECT4B  = TEMP2 
END 

IF  I = 6 THEN 
BEGIN 

TTEFFECT5A  = TEMPI 
TTEFFECT5B  = TEMP2 
END 

IF  I = 7 THEN 
BEGIN 

TTEFFECT6A  = TEMPI 
TTEFFECT6B  = TEMP2 
END 

1 = 1 + 1 
END 


LOOP  TO  DISPLAY  A FAILURE  MODE  RECORD  USING  A TDMS  FORM,  RETRIEVE  DATA 
FROM  THE  FORM,  TEST  THE  INCOMING  INFORMATION  AND  REQUEST  CORRECTION  OF 
INVALID  DATA 


FLG4  = "N" 

I MSG  = 23 
WHILE  FLG4  = "N" 

BEGIN 

IF  I MSG  = 13  THEN  TMSG  = TMSG13 

IF  I MSG  = 14  THEN  TMSG  = TMSG14 

IF  I MSG  = 15  THEN  TMSG  = TMSG15 

IF  I MSG  = 16  THEN  TMSG  = TMSG16 

IF  I MSG  = 17  THEN  TMSG  = TMSG17 

IF  I MSG  = 18  THEN  TMSG  = TMSG18 

IF  I MSG  = 19  THEN  TMSG  = TMSG19 

IF  I MSG  = 20  THEN  TMSG  = TMSG20 

IF  I MSG  = 23  THEN  TMSG  = TMSG23 

IF  I MSG  = 24  THEN  TMSG  = TMSG24 
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(cont. ) 

1 RETRIEVES  THE  DATA  ENTERED  ON  THE  FORM 

1 

4858 

1 

l 

4859 

4860 

4861 

DISPLAY  FORM  FAILUREMODES  MODI  FORM  IN 

4862 

DEVS206 : [ BCDSSME2 . FORMS] FORMSL IB . RLB  USING 

4863 

BEGIN 

4864 

PUT  FORM  RECORD  NUMBER 

= ICNT 

4865 

PUT  FORM  TOTAL  RECORDS 

= JCNT 

4866 

PUT  FORM  SOURCE  SYSTEM 

= SOURCE  SYSTEM 

4867 

PUT  FORM  SOURCE  MODULE 

= SOURCE  MODULE 

4868 

PUT  FORM  MODE  SUBMODE 

= FAILURE  MODE  SUBMODE 

4869 

PUT  FORM  ACCOM  SYSTEM 

= ACCOMPLICE  SYSTEM 

4870 

PUT  FORM  ACCOM  MODULE 

= ACCOMPLICE  MODULE 

4871 

PUT  FORM  DESCRIPTION  1 

= TTDESC1 

4872 

PUT  FORM  DESCRIPTION  2 

= TTDESC2 

4873 

PUT  FORM  DESCRIPTION  3 

= TTDESC3 

4874 

PUT  FORM  EFFECT  1A 

= TTEFFECT1A 

4875 

PUT  FORM  EFFECT  IB 

= TTEFFECT1B 

4876 

PUT  FORM  MESSAGE 

= TMSG 

4877 

END  RETRIEVE  USING 

4878 

BEGIN 

4879 

TTDESC1  = GET  FORM  DESCRIPTION  1 

4880 

TTDESC2  = GET  FORM  DESCRIPTION  2 

4881 

TTDESC3  = GET  FORM  DESCRIPTION  3 

4882 

TTEFFECT1A  = GET  FORM 

EFFECT  1A 

4883 

TTEFFECT1B  = GET  FORM 

EFFECT  IB 

4884 

END 

4885 

DISPLAY  FORM  FAILUREMODES  MOD2  FORM  IN 

4886 

DEVS206 : [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING 

4887 

BEGIN 

4888 

PUT  FORM  RECORD  NUMBER 

= ICNT 

4889 

PUT  FORM  TOTAL  RECORDS 

= OCNT 

4890 

PUT  FORM  EFFECT  2A 

= TTEFFECT2A 

4891 

PUT  FORM  EFFECT  2B 

= TTEFFECT2B 

4892 

PUT  FORM  EFFECT  3A 

= TTEFFECT3A 

4893 

PUT  FORM  EFFECT  3B 

= TTEFFECT3B 

4894 

PUT  FORM  EFFECT  4A 

= TTEFFECT4A 

4895 

PUT  FORM  EFFECT  4B 

= TTEFFECT4B 

4896 

PUT  FORM  EFFECT  5A 

= TTEFFECT5A 

4897 

PUT  FORM  EFFECT  5B 

= TTEFFECT5B 

4898 

PUT  FORM  EFFECT  6A 

= TTEFFECT6A 

4899 

PUT  FORM  EFFECT  6B 

= TTEFFECT6B 

4900 

PUT  FORM  MESSAGE 

= TMSG 

4901 

IF  I MSG  = 23  THEN 

4902 

PUT  FORM  CONTINUE 

_ n y H 

4903 

IF  I MSG  NE  23  THEN 

4904 

PUT  FORM  CONTINUE 

= TC0NTINUE2 

4905 

END  RETRIEVE  USING 

4906 

BEGIN 

4907 

TTEFFECT2A  = GET  FORM 

EFFECT  2A 

4908 
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i 


TTEFFECT2B  = GET_F0RM  EFFECTJB  4909 

TTEFFECT3A  = GET_F0RM  EFFECT_3A  4910 

TTEFFECT3B  = GET  FORM  EFFECTJB  4911 

TTEFFECT4A  = GETJORM  EFFECT_4A  49 1 2 

TTEFFECT4B  = GET_FORM  EFFECTJB  4913 

TTEFFECT5A  = GETFORM  EFFECT_5A  491 4 

TTEFFECT5B  = GET_FORM  EFFECTJB  4915 

TTEFFECT6A  = GET_FORM  EFFECT JA  491 6 

TTEFFECT6B  = GET_FORM  EFFECTJB  49 1 7 

TC0NTINUE2  = GET_FORM  CONTINUE  49 is 

END  4919 

4920 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH  WERE 
INADVERTENTLY  ENTERED  IN  TTDESC1,  TTDESC2,  TTDESC3,  TTEFFECT1A, 
TTEFFECT1B,  TTEFFECT2A,  TTEFFECT2B,  TTEFFECT3A,  TTEFFECT3B, 
TTEFFECT4A,  TTEFFECT4B,  TTEFFECT5A,  TTEFFECT5B,  TTEFFECT6A  AND 
TTEFFECT6B  ARE  REMOVED 


4921 

4922 

4923 

4924 

4925 

4926 

4927 

4928 

4929 

4930 

4931 


IF  TC0NTINUE2  NE  "A"  THEN 
BEGIN 
I = 1 

WHILE  I LE  15 


BEGIN 
J = 1 

WHILE  FN$STRJXTRACT( TEMPI,  J,  1) 
BEGIN 

J = J + 1 
END 


4932 

4933 

4934 

4935 

4936 


BEGIN 

IF 

I 

= 

1 THEN  TEMPI 

- 

TTDESC1 

4937 

4938 

IF 

I 

= 

2 THEN  TEMPI 

r 

TTDESC2 

4939 

IF 

I 

= 

3 THEN  TEMPI 

= 

TTDESC3 

4940 

IF 

I 

X 

4 THEN  TEMPI 

= 

TTEFFECT1A 

4941 

IF 

I 

= 

5 THEN  TEMPI 

= 

TTEFFECT1B 

4942 

IF 

I 

= 

6 THEN  TEMPI 

= 

TTEFFECT2A 

4943 

IF 

I 

= 

7 THEN  TEMPI 

= 

TTEFFECT2B 

4944 

IF 

I 

= 

8 THEN  TEMPI 

= 

TTEFFECT3A 

4945 

IF 

I 

= 

9 THEN  TEMPI 

= 

TTEFFECT3B 

4946 

IF 

I 

= 

10  THEN  TEMPI 

= 

TTEFFECT4A 

4947 

IF 

I 

= 

11  THEN  TEMPI 

= 

TTEFFECT4B 

4948 

IF 

I 

= 

12  THEN  TEMPI 

s 

TTEFFECT5A 

4949 

IF 

I 

= 

13  THEN  TEMPI 

= 

TTEFFECT5B 

4950 

IF 

I 

= 

14  THEN  TEMPI 

= 

TTEFFECT6A 

4951 

IF 

I 

= 

15  THEN  TEMPI 

= 

TTEFFECT6B 

4952 

IF 

TEMPI  NE  " " THEN 

4953 

4954 

4955 

4956 

4957 

4958 

4959 
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TEMPI  = FN$STR_EXTRACT( TEMPI,  J,  80  - J + 1)  4960 

END  4961 

IF  I = 1 THEN  TTDESC1  = TEMPI  4962 

IF  I = 2 THEN  TTDESC2  = TEMPI  4963 

IF  I = 3 THEN  TTDESC3  = TEMPI  4964 

IF  I = 4 THEN  TTEFFECT1A  * TEMPI  4965 

IF  I = 5 THEN  TTEFFECT1B  = TEMPI  4966 

IF  I = 6 THEN  TTEFFECT2A  = TEMPI  4967 

IF  I = 7 THEN  TTEFFECT2B  = TEMPI  4968 

IF  I = 8 THEN  TTEFFECT3A  = TEMPI  4969 

IF  I = 9 THEN  TTEFFECT3B  = TEMPI  4970 

IF  I = 10  THEN  TTEFFECT4A  = TEMPI  4971 

IF  I = 11  THEN  TTEFFECT4B  = TEMPI  4972 

IF  I = 12  THEN  TTEFFECT5A  * TEMPI  4973 

IF  I = 13  THEN  TTEFFECT5B  * TEMPI  4974 

IF  I = 14  THEN  TTEFFECT6A  = TEMPI  4975 

IF  I = 15  THEN  TTEFFECT6B  = TEMPI  4976 

1 = 1 + 1 4977 

END  4978 

END  4979 


4980 

4981 

4982 

4983 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

FLG4  = "Y"  4999 


IF  TC0NTINUE2  NE  "A"  THEN  5000 

BEGIN  5001 

I = 1 5002 

WHILE  FLG4  = "Y"  AND  I LE  8 5003 

BEGIN  5004 

IF  I = 1 THEN  TEMPI  = TTDESC1  5005 

IF  I = 2 THEN  TEMPI  = TTDESC2  5006 

IF  I = 3 THEN  TEMPI  = TTEFFECT1A  5007 

IF  I = 4 THEN  TEMPI  = TTEFFECT2A  soos 

IF  I = 5 THEN  TEMPI  = TTEFFECT3A  5009 

IF  I = 6 THEN  TEMPI  = TTEFFECT4A  5010 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TTDESC1  DOES  NOT  END  WITH  A HYPENATED  WORD 

2.  TTDESC2  DOES  NOT  END  WITH  A HYPENATED  WORD 

3.  TTEFFECT1A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

4.  TTEFFECT2A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

5.  TTEFFECT3A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

6.  TTEFFECT4A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

7.  TTEFFECT5A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

8.  TTEFFECT6A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

9.  TC0NTINUE2  IS  "Y",  "N"  OR  "A" 
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IF  I = 7 THEN  TEMPI  = TTEFFECT5A  son 

IF  I * 8 THEN  TEMPI  = TTEFFECT6A  5012 

IF  TEMPI  NE  " " THEN  5013 

BEGIN  5014 

J = 80  5015 

WHILE  FN$STR_EXTRACT( TEMPI,  J,  1)  * “ " 5016 

BEGIN  5017 

J = J - 1 5018 

END  5019 

IF  FN$STR_EXTRACT( TEMPI,  5020 

J,  1)  = AND  5021 

FN$STR_EXTRACT ( TEMPI , 5022 

J - 1,  1)  NE  " " AND  5023 

FNSSTR  EXTRACT (TEMPI,  5024 

J - 2,  2)  NE  " THEN  5025 

BEGIN  5026 

FLG4  = "N”  5027 

IF  I = 1 THEN  I MSG  = 13  5028 

IF  I * 2 THEN  I MSG  = 14  5029 

IF  I ■ 3 THEN  I MSG  = 15  5030 

IF  I * 4 THEN  I MSG  = 16  5031 

IF  I = 5 THEN  I MSG  = 17  5032 

IF  I « 6 THEN  I MSG  = 18  5033 

IF  I = 7 THEN  I MSG  = 19  5034 

IF  I = 8 THEN  I MSG  = 20  5035 

END  5036 

END  5037 

1 = 1 + 1 5038 

END  5039 

IF  FLG4  = "Y"  THEN  5040 

BEGIN  5041 

IF  TC0NTINUE2  NE  "Y"  AND  5042 

TC0NTINUE2  NE  ”N"  AND  5043 

TC0NTINUE2  NE  "A"  THEN  5044 

BEGIN  5045 

FLG4  = "N"  5046 

I MSG  = 24  5047 

END  5048 

END  5049 

END  5050 

END  5051 

5052 

5053 

| 5055 

IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  FOR  THE  j 5056 


DESCRIPTION  AND  EFFECTS  IS  CONCATENATED  INTO  THE  COMPOSITE  VARIABLES  | 5057 

TTDESC  AND  TTEFFECT1  THROUGH  TTEFFECT6  | 5058 

5059 

5060 

5061 
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IF  TC0NTINUE2  NE  "A"  THEN  5062 

BEGIN  5063 

TTDESC  = TTDESC1  5064 

IF  TTDESC  = " " THEN  5065 

TTDESC  = TTDESC2  ELSE  soee 

TTDESC  = TTDESC  | | " " | TTDESC2  5067 

IF  TTDESC  = " " THEN  5068 

TTDESC  = TTDESC3  ELSE  5069 

TTDESC  = TTDESC  | | " " | TTDESC3  5070 

TTEFFECT1  = TTEFFECT1A  507i 

IF  TTEFFECT1  = " " THEN  5072 

TTEFFECT1  = TTEFFECT1B  ELSE  5073 

TTEFFECT1  = TTEFFECT1  1 1 " " I TTEFFECT1B  5074 

TTEFFECT2  = TTEFFECT2A  5075 

IF  TTEFFECT2  = " " THEN  5076 

TTEFFECT2  = TTEFFECT2B  ELSE  5077 

TTEFFECT2  = TTEFFECT2  1 1 " " I.  TTEFFECT2B  5078 

TTEFFECT3  * TTEFFECT3A  5079 

IF  TTEFFECT3  = " " THEN  soao 

TTEFFECT3  = TTEFFECT3B  ELSE  sosi 

TTEFFECT3  = TTEFFECT3  I | " " | TTEFFECT3B  5082 

TTEFFECT4  = TTEFFECT4A  5083 

IF  TTEFFECT4  = " " THEN  5084 

TTEFFECT4  = TTEFFECT4B  ELSE  soss 

TTEFFECT4  = TTEFFECT4  1 1 " I TTEFFECT4B  soee 

TTEFFECT5  = TTEFFECT5A  5087 

IF  TTEFFECT5  = " " THEN  soee 

TTEFFECT5  = TTEFFECT5B  ELSE  5089 

TTEFFECT5  = TTEFFECT5  I | " " | TTEFFECT5B  5090 

TTEFFECT6  = TTEFFECT6A  5091 

IF  TTEFFECT6  = " " THEN  5092 

TTEFFECT6  * TTEFFECT6B  ELSE  5093 

TTEFFECT6  = TTEFFECT6  | | " " | TTEFFECT6B  5094 

END  5095 


5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 
51  10 
51 1 1 
5112 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  MA\  THIS  SECTION  REARRANGES  THE 
VARIABLES  TTEFFECT1,  TTEFFECT2,  TTEFFECT3,  TTEFFECT4,  TTEFFECT5  AND 
TTEFFECT6  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT  BLANK  IS  TTEFFECT1,  THE 
SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TTEFFECT2,  ETC. 


IF  TC0NTINUE2  NE  "A"  THEN 
BEGIN 


TEMP6  = TTEFFECT1 

"#$#"  | 

TTEFFECT2 

'•#$#"  | 

| TTEFFECT3 

TTEFFECT4 

TTEFFECT5 

"#$#"  | 

| TTEFFECT6 

I = 1 

WHILE  I LE  6 
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BEGIN 
J = 1 

WHILE  J = 1 
BEGIN 

J = FN$STR_LOC  ( TEMP6 , "#$#") 

IF  J = 0 THEN  TTEFFECT  = H 11 

IF  J * 1 THEN  TEMP6  = FN$STR_EXTRACT ( TEMP6 , 4,  981) 

IF  J GT  1 THEN 
BEGIN 

TTEFFECT  = FN$STR_EXTRACT(TEMP6,  1,  J - 1) 

TEMP6  = FN$STR_EXTRACT ( TEMP6 , J,  984  - J + 1) 
END 
END 

IF  I = 1 THEN  TTEFFECT1  = TTEFFECT 

IF  I = 2 THEN  TTEFFECT2  = TTEFFECT 

IF  I = 3 THEN  TTEFFECT3  = TTEFFECT 

IF  I = 4 THEN  TTEFFECT4  = TTEFFECT 

IF  I = 5 THEN  TTEFFECT5  = TTEFFECT 

IF  1=6  THEN  TTEFFECT6  = TTEFFECT 
1 = 1+1 
END 
END 


IF  TCONTINUE2  IS  NOT  EQUAL  TO  "A"  AND  NEW  DATA  HAS  BEEN  ENTERED  IN  AT 
LEAST  ONE  OF  THE  RECORD  FIELDS,  THIS  SECTION  PRINTS  THE  INITIAL  RECORD 
DATA  TO  THE  LOG  FILE,  MODIFIES  THE  RECORD  AND  PRINTS  THE  MODIFIED 
RECORD  DATA  TO  THE  LOG  FILE  (HIGHLIGHTING  THE  CHANGED  FIELDS) 


51  13 
51  14 

5115 

5116 

5117 

5118 
51  19 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 


5145 


TC0NTINUE2  NE  "A"  AND 

5146 

(DESCRIPTION  NE  TTDESC 

OR 

5147 

EFFECT1 

NE  TTEFFECT1 

OR 

5148 

EFFECT2 

NE  TTEFFECT2 

OR 

5149 

EFFECT3 

NE  TTEFFECT3 

OR 

5150 

EFFECT4 

NE  TTEFFECT4 

OR 

5151 

EFFECTS 

NE  TTEFFECT5 

OR 

5152 

EFFECT6 

NE  TTEFFECT6) 

THEN 

5153 

BEGIN 

5154 

THIS  SECTION  PRINTS  THE  INITIAL  RECORD  DATA  TO  THE  SESSION  LOG 
FILE 


5155 

5156 

5157 

5158 

5159 

5160 

5161 

5162 

5163 
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KCNT  = KCNT  + 1 

PRINT  NEW_PAGE , COL  1,  "RECORD  NO.  ",  SPACE  0, 
KCNT  (-)  USING  9(4),  SKIP  2, 


COL  6, 
COL  6, 


COL  6, 
COL  6, 
COL  6, 
COL  6, 
COL  6, 
COL  6, 
COL  6, 
COL  6, 
COL  6, 


SPACE 

=================================»,  SKIP  1, 

==a„s„sa„=!s=======s=s====!s====.,  SPACE 

=================================",  SKIP  2, 

"DATE  CREATED  :",  SPACE  1, 

DATE~CREATED  (-)  USING  X(23),  SKIP  1, 
"FMCODE  SPACE  1, 

SOURCE  SYSTEM  (-)  USING  X(4),  SPACE  1, 

SOURCE~MODULE  (-)  USING  9(4),  SPACE  1, 

FAILURE_MOD£  (-)  USING  X(2),  SPACE  1, 

FAILURE_SUBMODE  (-)  USING  X(2),  SPACE  1, 

ACCOMPLICE_SYSTEM  (-)  USING  X(4),  SPACE  1, 

ACCOMPLICE  MODULE  (-)  USING  9(4),  SKIP  1, 
"DESCRIPTION  :",  SPACE  1, 

DESCRIPTION  (-)  USING  T(52),  SKIP  1, 


"EFFECT1 


EFFECT1  (-)  USING  T(52),  SKIP  1, 


"EFFECT2 


EFFECT2  (-)  USING  T(52),  SKIP  1, 


"EFFECT3 


EFFECT3  (-)  USING  T(52),  SKIP  1, 


"EFFECT4 


EFFECT4  (-)  USING  T(52),  SKIP  1, 


"EFFECTS 


EFFECTS  (-)  USING  T(52),  SKIP  1, 


"EFFECT6 


EFFECT6  (-)  USING  T(52),  SKIP  1, 
" D ATE_LAST_MOD I F I ED  :" 
DATE_LAST_MOD I F I ED  (-) 

"MODIFYING  PROCEDURE  :" 


SPACE  1, 


SPACE  1, 


SPACE  1, 


SPACE  1, 


SPACE  1, 


SPACE  1, 


SPACE  1, 

USING  X(23) , SKIP  1, 
SPACE  1, 


MODIFYING_PROCEDURE  (-)  USING  X(20) 


THIS  SECTION  STORES  THE  INITIAL  RECORD  VALUES  FOR  USE  IN 
HIGHLIGHTING  THE  FIELDS  WHICH  HAVE  BEEN  MODIFIED 


HDCREATED  = DATE_CREATED 
HFMCODE  = FMCODE 
HDESC  = DESCRIPTION 
HEFFECT1  = EFFECT1 
HEFFECT2  = EFFECT2 
HEFFECT3  = EFFECT3 
HEFFECT4  = EFFECT4 
HEFFECT5  = EFFECTS 


5164 

5165 

5166 

5167 

5168 

5169 

5170 

5171 

5172 

5173 

5174 

5175 

5176 

5177 

5178 

5179 

5180 

5181 

5182 

5183 

5184 

5185 

5186 

5187 

5188 

5189 

5190 

5191 

5192 

5193 

5194 

5195 

5196 

5197 

5198 

5199 

5200 

5201 

5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 
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HEFFECT6  = EFFECT6 
HDLASTMOD  = DATE_LAST_MOD I F I ED 
HMODPROC  = MOD I FY ING_PROCEDURE 


THIS  SECTION  MODIFIES  THE  FAILURE  MODE  RECORD  USING  THE  VERIFIED 
DATA  ENTERED  ON  THE  MODIFY  FAILURE  MODES  FORM 


CAL  = "NOW" 

MODIFY  USING 
BEGIN 

DESCRIPTION  = TTDESC 

EFFECT1  = TTEFFECT1 

EFFECT2  = TTEFFECT2 

EFFECT3  = TTEFFECT3 

EFFECT4  = TTEFFECT4 

EFFECTS  = TTEFFECT5 

EFFECT6  = TTEFFECT6 

D ATE_LAST_MOD I F I ED  = CAL 

MODIFYING  PROCEDURE  = "FM^MODIFY" 
END 


THIS  SECTION  PRINTS  THE  MODIFIED  RECORD  DATA  TO  THE  SESSION  LOG 
FILE  AND  HIGHLIGHTS  THE  FIELDS  WHICH  CONTAIN  NEW  INFORMATION 


PRINT  SKIP  1, 

•========================================",  SPACE  0, 

•========================================,  SKIP  2, 

COL  1,  CHOICE 

DATE_CREATED  = HDCREATED  THEN  " " 

ELSE  "***" 

END_CHOICE, 

SPACE  2,  "DATE_CREATED  :\  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 

COL  1,  CHOICE 

FMCODE  = HFMCODE  THEN  " " 

ELSE  "***" 

ENDJHOICE, 

SPACE  2,  "FMCODE  SPACE  1, 

SOURCE JYSTEM  (-)  USING  X(4),  SPACE  1, 

S0URCEJ40DULE  (-)  USING  9(4),  SPACE  1, 

FAILURE_MODE  (-)  USING  X(2),  SPACE  1, 


5215 

5216 

5217 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 

5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 
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FAILURE_SUBMODE  (-)  USING  X(2),  SPACE  1,  5266 

ACCOMPLICE_SYSTEM  (-)  USING  X(4),  SPACE  1,  5267 

ACCOMPLICE_MODULE  (-)  USING  9(4),  SKIP  1,  5268 

COL  1,  CHOICE  5269 

DESCRIPTION  = HDESC  THEN  " " 5270 

ELSE  ,,***,,  527i 

END_CHOICE,  5272 

SPACE  2,  "DESCRIPTION  SPACE  1,  5273 

DESCRIPTION  (-)  USING  T(52),  SKIP  1,  5274 

COL  1,  CHOICE  5275 

EFFECT1  = HEFFECT1  THEN  " " 5276 

ELSE  "***"  5277 

END_CHOICE,  5278 

SPACE  2,  "EFFECT!  SPACE  1,  5279 

EFFECT1  (-)  USING  T(52),  SKIP  1,  5280 

COL  1,  CHOICE  5281 

EFFECT2  = HEFFECT2  THEN  " " 5282 

ELSE  "***"  5283 

END_CHOICE,  5284 

SPACE  2,  "EFFECT2  SPACE  1,  5285 

EFFECT2  (-)  USING  T(52),  SKIP  1,  5286 

COL  1,  CHOICE  5287 

EFFECT3  = HEFFECT3  THEN  " " 5288 

ELSE  "***"  5289 

END_CHOICE,  5290 

SPACE  2,  "EFFECT3  SPACE  1,  5291 

EFFECT3  (-)  USING  T(52),  SKIP  1,  5292 

COL  1,  CHOICE  5293 

EFFECT4  = HEFFECT4  THEN  " " 5294 

ELSE  "***"  5295 

END_CHOICE,  5296 

SPACE  2,  "EFFECT4  SPACE  1,  5297 

EFFECT4  (-)  USING  T(52),  SKIP  1,  5298 

COL  1,  CHOICE  5299 

EFFECT5  = HEFFECT5  THEN  " " 5300 

ELSE  "***"  5301 

END_CHOICE,  5302 

SPACE  2,  "EFFECTS  SPACE  1,  5303 

EFFECTS  (-)  USING  T(52),  SKIP  1,  5304 

COL  1,  CHOICE  5305 

EFFECT6  = HEFFECT6  THEN  " " 5306 

ELSE  "***"  5307 

END_CHOICE,  5308 

SPACE  2,  "EFFECT6  SPACE  1,  5309 

EFFECT6  (-)  USING  T(52),  SKIP  1,  5310 

COL  1,  CHOICE  5311 

DATE_LAST_MOD I F I ED  = HDLASTMOD  THEN  " " 5312 

ELSE  "***"  5313 

END_CHOICE,  5314 

SPACE  2,  " DATE_LAST_MOD I F I ED  SPACE  1,  5315 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  5316 
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COL  1,  CHOICE 

MODIFYING_PROCEDURE  = HMODPROC  THEN  " " 

ELSE  "***" 


END_CHOICE, 

SPACE  2,  "MOD I FY ING_PROCEDURE  SPACE  1, 

MODIFYING  PROCEDURE  (-)  USING  X(20),  SKIP  2, 

» =========================1==============",  SPACE  0, 

•■=========================«=============",  SKIP  1, 

■•========================================%  SPACE  0, 


5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 


:BELL 

END 


IF  TC0NTINUE2  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  MODIFIED.  THIS 
MESSAGE  WILL  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TC0NTINUE2  = "A"  THEN 
BEGIN 

PRINT  NEW  PAGE,  SKIP  3, 

COL  1,  H========================================u,  SPACE  0, 

•■========================================",  SKIP  10, 

COL  9 " ********************************* ” , SKIP  2, 

COL  9,  "*****  RECORD  NOT  MODIFIED  *****%  SKIP  2, 

COL  9 "*********************************" , SKIP  10, 

COL  1,  SPACE  0, 

END 

END-PROCEDURE 


5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 

5346 

5347 

5348 

5349 

5350 
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DEFINE  PROCEDURE  FM  STORE 


VARIABLES  ASSOCIATED  WITH  FIRST  FIVE  INPUT  FIELDS  FOR 
DOMAIN  FAILUREMODES: 

1.  SOURCE_SYSTEM 

2.  SOURCE_MODULE 

3.  FAILURE_MODE_SUBMODE 

4.  ACCOMPLI CE_SYSTEM 

5.  ACCOM PLIC E_MOD U L E 


DECLARE  TSSYSTEM 

PIC  X(4) . 

DECLARE  TSMODULE 

PIC  9(4). 

DECLARE  TTSMODULE 

PIC  X(4) . 

DECLARE  TFMSUBM 

PIC  X(4) . 

DECLARE  TASYSTEM 

PIC  X(4) . 

DECLARE  TAMODULE 

PIC  9(4). 

DECLARE  TTAMODULE 
1 
t 

PIC  X(4) . 

i 

1 VARIABLES  ASSOCIATED  WITH  DESCRIPTION 

j 

j 

DECLARE  TDESC1 

PIC  X(80) . 

DECLARE  TDESC2 

PIC  X(80) . 

DECLARE  TDESC3 

PIC  X(80) . 

DECLARE  TDESC 

PIC  X(242). 

VARIABLES  ASSOCIATED  WITH  EFFECTS 


DECLARE  TEFFECT1A  PIC  X(80). 
DECLARE  TEFFECT1B  PIC  X(80). 
DECLARE  TEFFECT2A  PIC  X(80). 
DECLARE  TEFFECT2B  PIC  X(80). 
DECLARE  TEFFECT3A  PIC  X(80). 
DECLARE  TEFFECT3B  PIC  X(80). 
DECLARE  TEFFECT4A  PIC  X(80). 
DECLARE  TEFFECT4B  PIC  X(80). 
DECLARE  TEFFECT5A  PIC  X(80). 


535  1 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 

5396 

5397 

5398 

5399 

5400 

5401 
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DECLARE  TEFFECT5B 

PIC  X(80). 

5402 

DECLARE  TEFFECT6A 

PIC  X(80) . 

5403 

DECLARE  TEFFECT6B 

PIC  X(80). 

5404 

DECLARE  TEFFECT1 

PIC  X( 161 ) . 

5405 

DECLARE  TEFFECT2 

PIC  X(161) . 

5406 

DECLARE  TEFFECT3 

PIC  X(161) . 

5407 

DECLARE  TEFFECT4 

PIC  X(161) . 

5408 

DECLARE  TEFFECT5 

PIC  X( 161 ) . 

5409 

DECLARE  TEFFECT6 

PIC  X( 161 ) . 

5410 

DECLARE  TTEFFECT 

PIC  X( 161 ) . 

541  1 

! 

5412 

j 

5413 

| 

1 

54  l 4 
5415 

! VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  DESCRIPTION  AND 

5416 

! EFFECTS 

5417 

1 

5418 

j 

54 1 9 
5420 

DECLARE  TEMP 

PIC  X(80) . 

5421 

DECLARE  TTEMP 

PIC  X(984). 

5422 

! 

5423 

I 

5424 

» 

5425 

5426 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 

5427 

J 

5428 

r j nn 

1 

5429 

5430 

DECLARE  TCONTINUE 

PIC  X(l). 

5431 

DECLARE  I MSG 

PIC  9(2). 

mEm 

DECLARE  FLG1 

PIC  X(l). 

DECLARE  FLG2 

PIC  X(l). 

5434 

J 

5435 

I 

5436 

J 

5437 

5438 

! VARIABLES  USED 

TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

5439 

J 

5440 

J 

544 1 

5442 

DECLARE  TMSG 

PIC  X(80) . 

5443 

DECLARE  TMSG1 

PIC  X(80) . 

5444 

DECLARE  TMSG2 

PIC  X(80). 

5445 

DECLARE  TMSG3 

PIC  X(80). 

5446 

DECLARE  TMSG4 

PIC  X(80) . 

5447 

DECLARE  TMSG5 

PIC  X(80) . 

5448 

DECLARE  TMSG6 

PIC  X(80). 

5449 

DECLARE  TMSG7 

PIC  X(80) . 

5450 

DECLARE  TMSG8 

PIC  X(80) . 

5451 

DECLARE  TMSG9 

PIC  X(80). 

5452 
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DECLARE  TMSG9A  PIC  X(80). 
DECLARE  TMSG10  PIC  X(80). 
DECLARE  TMSG11  PIC  X(80). 
DECLARE  TMSG12  PIC  X(80). 
DECLARE  TMSG13  PIC  X(80). 
DECLARE  TMSG14  PIC  X(80). 
DECLARE  TMSG15  PIC  X(80). 
DECLARE  TMSG16  PIC  X(80). 
DECLARE  TMSG17  PIC  X(80). 
DECLARE  TMSG18  PIC  X(80). 


VARIABLES  USED  AS  COUNTERS 


DECLARE  ICNT  PIC  9(4). 
DECLARE  I PIC  9(4). 
DECLARE  J PIC  9(4). 


VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 


DECLARE  CAL  USAGE  DATE 

EDITJTRING  X(23). 


READY  THE  APPROPRIATE  DOMAINS,  INITIALIZE  THE  MESSAGE  VARIABLES  AND 
INITIALIZE  THE  COUNTER  (ICNT)  USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


SET  ABORT 

READY  FAILUREMODES  SHARED  WRITE 

READY  SYSTEMS  SHARED  READ 

READY  MODULES  SHARED  READ 

READY  FAILUREMODES  JORM  SHARED  READ 

TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = "SOURCE  SYSTEM  IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS" 

TMSG3  = "SOURCE  MODULE  IS  NOT  VALID  - NOT  IN  DOMAIN  MODULES  FOR  SYSTEM" 

TMSG4  = "FAILURE  MODE  & SUBMODE  IS  NOT  VALID  - NOT  IN  TABLE  " | 

" FA  I LURE_MODE_SUBMODE  JABLE " 

TMSG5  = "ACCOMPLICE  SYSTEM  & MODULE  NOT  REQUIRED  FOR  THIS  FAILURE  MODE  " | 


5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 

5469 

5470 

5471 

5472 

5473 

5474 

5475 

5476 

5477 

5478 

5479 

5480 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 
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"&  SUBMODE" 

TMSG6  = "ACCOMPLICE  SYSTEM  & MODULE  REQUIRED  FOR  THIS  FAILURE  MODE  & SUBMODE" 

TMSG7  = "ACCOMPLICE  SYSTEM  IS  NOT  VALID  — NOT  IN  DOMAIN  SYSTEMS" 

TMSG8  = "ACCOMPLICE  MODULE  IS  NOT  VALID  --  NOT  IN  DOMAIN  MODULES  FOR  SYSTEM" 

TMSG9  = "FAILURE" 

TMSG9A  = "IS  NOT  VALID  - ALREADY  IN  DOMAIN  FAILUREMODES" 

TMSG10  = "THE  FIRST  LINE  OF  THE  FAILURE  DESCRIPTION  SHOULD  NOT  END  WITH  " | 

"A  HYPENATED  WORD" 

TMSG11  = "THE  SECOND  LINE  OF  THE  FAILURE  DESCRIPTION  SHOULD  NOT  END  WITH  " | 

"A  HYPENATED  WORD" 

TMSG12  = "THE  FIRST  LINE  OF  EFFECT  1 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG13  = "THE  FIRST  LINE  OF  EFFECT  2 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG14  = "THE  FIRST  LINE  OF  EFFECT  3 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG15  = "THE  FIRST  LINE  OF  EFFECT  4 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG16  = "THE  FIRST  LINE  OF  EFFECT  5 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG17  = "THE  FIRST  LINE  OF  EFFECT  6 SHOULD  NOT  END  WITH  A HYPENATED  WORD" 

TMSG18  = "CONTINUE  IS  NOT  VALID  --  MUST  BE  Y,  N OR  A" 

ICNT  = 0 


PRIMARY  LOOP  TO  STORE  FAILUREMODES 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR 
CORRECTION  OF  INVALID  INFORMATION 

2.  IF  TCONTINUE  NE  "A",  SECTION  TO  CONCATENATE  THE  INPUT  VARIABLES 
ASSOCIATED  WITH  DESCRIPTION  AND  EFFECTS 

3.  IF  TCONTINUE  NE  "A",  SECTION  TO  REARRANGE  THE  VARIABLES 
ASSOCIATED  WITH  EFFECTS 

4.  IF  TCONTINUE  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN 
FAILUREMODES  AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED 

5.  IF  TCONTINUE  NE  "A",  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN 
FAILUREMODES  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE 

6.  IF  TCONTINUE  = "A",  SECTION  TO  PRINT  MESSAGE  THAT  DATA  CURRENTLY 
ON  FORM  HAS  NOT  BEEN  STORED 

7.  IF  TCONTINUE  = "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE  = "Y" 

WHILE  TCONTINUE  = "Y" 
BEGIN 


I I 

LOOP  TO  DISPLAY  BLANK  TDMS  FORMS,  RETRIEVE  THE  DATA  ENTERED  ON  THE  | 

| FORMS,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA  | 


5504 

5505 

5506 

5507 

5508 

5509 

5510 
551  1 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 

5535 

5536 

5537 

5538 

5539 

5540 

5541 

5542 
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5544 

5545 
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5547 

5548 

5549 
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FLG1  = "N" 

IMSG  = 1 

WHILE  FLG1  = "NM 
BEGIN 

IF  IMSG  = 1 THEN  TMSG  = TMSG1 

IF  IMSG  = 2 THEN  TMSG  = TMSG2 

IF  IMSG  = 3 THEN  TMSG  = TMSG3  | | *'  " | TSSYSTEM 

IF  IMSG  = 4 THEN  TMSG  * TMSG4 

IF  IMSG  = 5 THEN  TMSG  = TMSG5 

IF  IMSG  = 6 THEN  TMSG  = TMSG6 

IF  IMSG  = 7 THEN  TMSG  = TMSG7 

IF  IMSG  = 8 THEN  TMSG  = TMSG8  ” M TASYSTEM 

IF  IMSG  = 9 THEN  TMSG  = TMSG9  " " TSSYSTEM  | " " | 

TTSMODULE  I tt  M | TFMSUBM  | 11  11 
TASYSTEM  | " " | TTAMODULE  | H " 
TMSG9A 

IF  IMSG  = 10  THEN  TMSG  = TMSG10 

IF  IMSG  = 11  THEN  TMSG  = TMSG11 

IF  IMSG  = 12  THEN  TMSG  = TMSG 12 

IF  IMSG  = 13  THEN  TMSG  = TMSG13 

IF  IMSG  = 14  THEN  TMSG  = TMSG 14 

IF  IMSG  = 15  THEN  TMSG  = TMSG 15 

IF  IMSG  = 16  THEN  TMSG  = TMSG 16 

IF  IMSG  = 17  THEN  TMSG  = TMSG17 

IF  IMSG  = 18  THEN  TMSG  = TMSG18 


THIS  SECTION  DISPLAYS  THE  STORE  FAILURE  MODES  FORM  AND 
RETRIEVES  THE  DATA  ENTERED  ON  THE  FORM 


FOR  FIRST  1 FAILUREMODES  FORM 
BEGIN 

DISPLAY_FORM  FAILUREM0DES_ST01  JORM  IN 

DEVJ206: [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING 
BEGIN 

IF  IMSG  NE  1 THEN 
BEGIN 

PUT_FORM  SOURCE_SYSTEM  = TSSYSTEM 
PUT  JORM  SOURCE  MODULE  = TSMODULE 
PUT  JORM  MODE  JOBMODE  = TFMSUBM 
PUTJORM  ACCOM  SYSTEM  = TASYSTEM 
PUT  JORM  ACCOMJODULE  = TAMODULE 
PUTJORM  DESCRIPTION^  = TDESC1 
PUTJORM  DESCRIPTIONJ  = TDESC2 
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5588 
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PUTJORM  DESCRIPTI0N_3  = TDESC3  5606 

PUT_F0RM  EFFECT_1A  = TEFFECT1A  5607 

PUTJORM  EFFECT_1B  = TEFFECT1B  5608 

END  5609 

IF  I MSG  = 1 THEN  56 io 

BEGIN  sen 

PUTJORM  ACCOM_SYSTEM  = " " 56 12 

PUTJORM  ACCOM_MODULE  = 0 56 13 

END  5614 

PUTJORM  MESSAGE  = TMSG  56 is 

END  RETRIEVE  USING  56 1 6 

BEGIN  5617 

TSSYSTEM  = GETJORM  SOURCE_SYSTEM  56 1 8 

. TSMODULE  = GETJORM  SOURCE_MODULE  56 1 9 

TFMSUBM  = GETJORM  MODE_SUBMODE  5620 

TASYSTEM  = GETJORM  ACCOM_SYSTEM  562 1 

TAMODULE  = GETJORM  ACCOM_MODULE  5622 

TDESC1  = GETJORM  DESCRIPTIONJ  5623 

TDESC2  = GETJORM  DESCRIPTIONJ  5624 

TDESC3  = GETJORM  DESCRIPTIONJ  5625 

TEFFECT1A  = GETJORM  EFFECT_1A  5626 

TEFFECT1B  = GETJORM  EFFECT_1B  5627 

END  5628 

DISPLAY JORM  FAILUREM0DES_ST02J0RM  IN  5629 

DEVS206 : [ BCDSSME2 . FORMS] FORMSL IB . RLB  USING  5630 

BEGIN  563i 

IF  I MSG  NE  1 THEN  5632 

BEGIN  5633 

PUTJORM  EFFECT JA  = TEFFECT2A  5634 

PUTJORM  EFFECT JB  = TEFFECT2B  5635 

PUTJORM  EFFECT  JA  = TEFFECT3A  5636 

PUTJORM  EFFECT  JB  = TEFFECT3B  5637 

PUTJORM  EFFECT_4A  = TEFFECT4A  5638 

PUTJORM  EFFECT_4B  = TEFFECT4B  5639 

PUTJORM  EFFECT  JA  = TEFFECT5A  5640 

PUTJORM  EFFECT  JB  = TEFFECT5B  564 1 

PUTJORM  EFFECT  JA  = TEFFECT6A  5642 

PUTJORM  EFFECT  JB  = TEFFECT6B  5643 

END  5644 

PUTJORM  MESSAGE  = TMSG  5645 

PUTJORM  CONTINUE  = TCONTINUE  5646 

END  RETRIEVE  USING  5647 

BEGIN  5648 

TEFFECT2A  = GETJORM  EFFECTJA  5649 

TEFFECT2B  = GETJORM  EFFECT  JB  5650 

TEFFECT3A  = GETJORM  EFFECTJA  565 1 

TEFFECT3B  = GET  FORM  EFFECT  JB  5652 

TEFFECT4A  = GETJORM  EFFECTJA  5653 

TEFFECT4B  = GETJORM  EFFECT  JB  5654 

TEFFECT5A  = GETJORM  EFFECTJA  5555 

TEFFECT5B  = GETJORM  EFFECT  JB  5656 


1 
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TEFFECT6A  = 
TEFFECT6B  = 
TCONTINUE  = 
END 
END 

TTSMODULE  = TSMODULE 
IF  TSMODULE  LT  1000  THEN 
IF  TSMODULE  LT  100  THEN 
IF  TSMODULE  LT  10  THEN 
TTAMODULE  = TAMODULE 
IF  TAMODULE  LT  1000  THEN 
IF  TAMODULE  LT  100  THEN 
IF  TAMODULE  LT  10  THEN 


GETJORM  EFFECT  JA 
GETJORM  EFFECT JB 
GETJORM  CONTINUE 


TTSMODULE  = “0" 
TTSMODULE  = "O'1 
TTSMODULE  = “O'* 


TTSMODULE 

TTSMODULE 

TTSMODULE 


TTAMODULE  = "O” 
TTAMODULE  = *0* 
TTAMODULE  = *0* 


TTAMODULE 

TTAMODULE 

TTAMODULE 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TDESC1,  TDESC2,  TDESC3, 
TEFFECT1A,  TEFFECT1B,  TEFFECT2A,  TEFFECT2B,  TEFFECT3A, 
TEFFECT3B,  TEFFECT4A,  TEFFECT4B,  TEFFECT5A,  TEFFECT5B, 
TEFFECT6A  AND  TEFFECT6B  ARE  REMOVED 


IF  TCONTINUE  NE  "A"  THEN 
BEGIN 
I * 1 

WHILE  I LE  15 


BEGIN 

IF 

I 

- 

1 

THEN 

TEMP 

s 

TDESC1 

IF 

I 

= 

2 

THEN 

TEMP 

= 

TDESC2 

IF 

I 

= 

3 

THEN 

TEMP 

= 

TDESC3 

IF 

I 

= 

4 

THEN 

TEMP 

= 

TEFFECT1A 

IF 

I 

s 

5 

THEN 

TEMP 

= 

TEFFECT1B 

IF 

I 

s 

6 

THEN 

TEMP 

= 

TEFFECT2A 

IF 

I 

= 

7 

THEN 

TEMP 

s 

TEFFECT2B 

IF 

I 

= 

8 

THEN 

TEMP 

= 

TEFFECT3A 

IF 

I 

s 

9 

THEN 

TEMP 

s 

TEFFECT3B 

IF 

I 

s 

10 

THEN 

TEMP 

= 

TEFFECT4A 

IF 

I 

= 

11 

THEN 

TEMP 

= 

TEFFECT4B 

IF 

I 

= 

12 

THEN 

TEMP 

s 

TEFFECT5A 

IF 

I 

= 

13  THEN 

TEMP 

= 

TEFFECT5B 

IF 

I 

= 

14 

THEN 

TEMP 

= 

TEFFECT6A 

IF 

I 

s 

15  THEN 

TEMP 

s 

TEFFECT6B 

IF  TEMP  NE  " " 

THEN 

BEGIN 
J = 1 

WHILE  FNSSTR  JXTRACT ( TEMP , J,  1)  = " M 
BEGIN 

J = J + 1 


5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

5707 


F-140 


Datatrieve  Procedure  FM_ST0RE  (cont.) 


END  5708 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  80  - J + 1)  5709 

END  5710 


IF 

I 

= 

1 

THEN 

TDESC1 

2 

IF 

I 

= 

2 

THEN 

TDESC2 

= 

IF 

I 

= 

3 

THEN 

TDESC3 

= 

IF 

I 

S 

4 

THEN 

TEFFECT1A 

= 

IF 

I 

= 

5 

THEN 

TEFFECT1B 

= 

IF 

I 

= 

6 

THEN 

TEFFECT2A 

= 

IF 

I 

= 

7 

THEN 

TEFFECT2B 

= 

IF 

I 

= 

8 

THEN 

TEFFECT3A 

= 

IF 

I 

= 

9 

THEN 

TEFFECT3B 

= 

IF 

I 

= 

10 

THEN 

TEFFECT4A 

= 

IF 

I 

= 

11 

THEN 

TEFFECT4B 

= 

IF 

I 

= 

12 

THEN 

TEFFECT5A 

= 

IF 

I 

= 

13 

THEN 

TEFFECT5B 

= 

IF 

I 

= 

14 

THEN 

TEFFECT6A 

= 

IF 

I 

= 

15 

THEN 

TEFFECT6B 

= 

I « 

[ “ 

► 1 

END 

END 


TEMP 

5711 

TEMP 

5712 

TEMP 

5713 

TEMP 

5714 

TEMP 

5715 

TEMP 

5716 

TEMP 

5717 

TEMP 

5718 

TEMP 

5719 

TEMP 

5720 

TEMP 

5721 

TEMP 

5722 

TEMP 

5723 

TEMP 

5724 

TEMP 

5725 

5726 

5727 

5728 

IF  TCONTINUE  IS  NOT  EQUAL  TO  “A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TSSYSTEM  IS  IN  DOMAIN  SYSTEMS 

2.  TSMODULE  IS  IN  DOMAIN  MODULES  FOR  SYSTEM  = TSSYSTEM 

3.  TFMSUBM  IS  IN  TABLE  FAILURE_MODE_SUBMODEJABLE 

4.  IF  TFMSUBM  IS  NOT  IN  TABLE  ACCOMPLICE_REQUIRED_TABLE, 

THEN  TASYSTEM  SHOULD  BE  BLANK  OR  " " AND  TAMODULE 

SHOULD  BE  0 (ZERO) 

5.  IF  TFMSUBM  IS  IN  TABLE  ACCOMPLICEJEQUIRED  JABLE,  THEN 
TASYSTEM  AND  TAMODULE  MUST  HAVE  NON-TRIVIAL  VALUES 

6.  TASYSTEM,  IF  REQUIRED,  IS  IN  DOMAIN  SYSTEMS 

7.  TAMODULE,  IF  REQUIRED,  IS  IN  DOMAIN  MODULES  FOR 
SYSTEM  = TASYSTEM 

8.  TSSYSTEM,  TSMODULE,  TFMSUBM,  TASYSTEM  AND  TAMODULE  DO 
NOT  ALREADY  EXIST  IN  DOMAIN  FAILUREMODES 

9.  TDESC1  DOES  NOT  END  WITH  A HYPENATED  WORD 

10.  TDESC2  DOES  NOT  END  WITH  A HYPENATED  WORD 

11.  TEFFECT1A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

12.  TEFFECT2A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

13.  TEFFECT3A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

14.  TEFFECT4A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

15.  TEFFECT5A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

16.  TEFFECT6A  DOES  NOT  END  WITH  A HYPHENATED  WORD 

17.  TCONTINUE  IS  "Y\  "N"  OR  "A" 


5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 

5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 

5757 

5758 
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! 5759 

FLG1  = "Y"  5760 

IF  TCONTINUE  NE  "A"  THEN  576 i 

BEGIN  5762 

FLG2  = "N"  5763 

FOR  SYSTEMS  WITH  SYSTEM  = TSSYSTEM  5764 

BEGIN  5765 

FLG2  = "Y"  5766 

END  5767 

IF  FLG2  = "N"  THEN  5768 

BEGIN  5769 

FLG1  = "N"  5770 

IMSG  =2  5771 

END  5772 

IF  FLG1  = "Y"  THEN  5773 

BEGIN  5774 

FLG2  = "N"  5775 

FOR  MODULES  WITH  SYSTEM  MODULE  = TSSYSTEM  | TTSMODULE  5776 

BEGIN  5777 

FLG2  = "Y"  5778 

END  5779 

IF  FLG2  = "N"  THEN  5780 

BEGIN  578i 

FLG1  = "N"  5782 

IMSG  s 3 5783 

END  5784 

END  5785 

IF  FLG1  = "Y"  THEN  5786 

BEGIN  5787 

IF  TFMSUBM  NOT  IN  FAI LURE_MODE_SUBMOD£_TABLE  THEN  5788 

BEGIN  ~ 5789 

FLG1  = "N"  5790 

IMSG  =4  5791 

END  5792 

END  5793 

IF  FLG1  = "Y"  THEN  5794 

BEGIN  5795 

IF  TFMSUBM  NOT  IN  ACCOMPL I CE_REQU I RED_TABLE  AND  5796 

(TASYSTEM  NE  " 11  OR  5797 

TAMODULE  NE  0)  THEN  5798 

BEGIN  5799 

FLG1  = "N"  5800 

IMSG  =5  5801 

END  5802 

END  5803 

IF  FLG1  = "Y"  THEN  5804 

BEGIN  5805 

IF  TFMSUBM  IN  ACCOMPLICE_REQUIRED_TABLE  AND  5806 

(TASYSTEM  EQ  " " OR  5807 

TAMODULE  EQ  0)  THEN  5808 

BEGIN  5809 
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FLG1  = "N" 

5810 

I MSG  = 6 

581  1 

END 

5812 

END 

5813 

IF  FLG1  = "Y"  AND 

5814 

TFMSUBM  IN  ACCOMPLICE  REQUIRED  TABLE  THEN 

5815 

BEGIN 

5816 

FLG2  = "N" 

5817 

FOR  SYSTEMS  WITH  SYSTEM  = TASYSTEM 

5818 

BEGIN 

5819 

FLG2  = "Y" 

5820 

END 

5821 

IF  FLG2  = "N"  THEN 

5822 

BEGIN 

5823 

FLG1  « "N" 

5824 

I MSG  = 7 

5825 

END 

5826 

END 

5827 

IF  FLG1  = "Y"  AND 

5828 

TFMSUBM  IN  ACCOMPLICE  REQUIRED  TABLE  THEN 

5829 

BEGIN 

5830 

FLG2  = "N" 

5831 

FOR  MODULES  WITH  SYSTEM  MODULE  = TASYSTEM  1 TTAMODULE 

5832 

BEGIN 

5833 

FLG2  = "Y" 

5834 

END 

5835 

IF  FLG2  = "N"  THEN 

5836 

BEGIN 

5837 

FLG1  = "N" 

5838 

I MSG  * 8 

5839 

END 

5840 

END 

5841 

IF  FLG1  = "Y"  THEN 

5842 

BEGIN 

5843 

FOR  FAILUREMODES  WITH  FMCODE  = TSSYSTEM 

TTSMODULE  j 

5844 

TFMSUBM 

5845 

TASYSTEM 

TTAMODULE 

5846 

BEGIN 

5847 

FLG1  = "N" 

5848 

I MSG  = 9 

5849 

END 

5850 

END 

5851 

IF  FLG1  = "Y"  THEN 

5852 

BEGIN 

5853 

I = 1 

5854 

WHILE  FLG1  = “Y"  AND  I LE  8 

5855 

BEGIN 

5856 

IF  I = 1 THEN  TEMP  = TDESC1 

5857 

IF  I = 2 THEN  TEMP  = TDESC2 

5858 

IF  I = 3 THEN  TEMP  = TEFFECT1A 

5859 

IF  I = 4 THEN  TEMP  = TEFFECT2A 

5860 
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IF  I 8 5 THEN  TEMP  = TEFFECT3A  seei 

IF  I 8 6 THEN  TEMP  = TEFFECT4A  5862 

IF  I 8 7 THEN  TEMP  8 TEFFECT5A  5863 

IF  I 8 8 THEN  TEMP  = TEFFECT6A  5864 

IF  TEMP  NE  - " THEN  sees 

BEGIN  5866 

J = 80  5867 

WHILE  FN$STR_EXTRACT ( TEMP , J,  1)  8 " " sees 

BEGIN  5869 

J 8 J - 1 5870 

END  5871 

IF  FN$STR_EXTRACT ( TEMP , 5872 

J,  1)  8 AND  5873 

FN$STR_EXTRACT ( TEMP , 5874 

J - 1,  1)  NE  " " AND  5875 

FN$STR_EXTRACT ( TEMP , 5876 

J - 2,  2)  NE  " THEN  5877 

BEGIN  5878 

FLG1  = "N"  5879 

IF  I 8 1 THEN  I MSG  8 10  5880 

IF  I 8 2 THEN  I MSG  8 11  5881 

IF  I * 3 THEN  I MSG  8 12  5882 

IF  I = 4 THEN  I MSG  = 13  5883 

IF  I = 5 THEN  I MSG  8 14  5884 

IF  I = 6 THEN  I MSG  8 15  sees 

IF  I = 7 THEN  I MSG  8 16  sees 

IF  I 8 8 THEN  I MSG  8 17  5887 

END  5888 

END  5889 

I 8 I + 1 5890 

END  5891 

END  5892 

IF  FLG1  8 "Y"  THEN  5893 

BEGIN  5894 

IF  TCONTINUE  NE  "Y"  AND  5895 

TCONTINUE  NE  "N"  AND  5896 

TCONTINUE  NE  "A"  THEN  5897 

BEGIN  5898 

FLG1  8 "N"  5899 

I MSG  8 18  5900 

END  5901 

END  5902 

END  5903 

END  5904 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  FOR  THE 
DESCRIPTION  AND  EFFECTS  IS  CONCATENATED  INTO  THE  COMPOSITE  VARIABLES 
TDESC  AND  TEFFECT1  THROUGH  TEFFECT6 


5905 

5906 

5907 

5908 

5909 

5910 

5911 
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IF  TCONTINUE  NE  "A”  THEN 
BEGIN 

TDESC  = TDESC1 
IF  TDESC  = M M THEN 

TDESC  = TDESC2  ELSE 

TDESC  = TDESC  | | " " 

IF  TDESC  = " H THEN 

TDESC  « TDESC3  ELSE 

TDESC  = TDESC  1 1 " " 

TEFFECT1  = TEFFECT1A 
IF  TEFFECT1  = ” 11  THEN 

TEFFECT1  * TEFFECT1B  ELSE 
TEFFECT1  = TEFFECT1  ||  H " | TEFFECT1B 
TEFFECT2  - TEFFECT2A 
IF  TEFFECT2  = - ■ THEN 

TEFFECT2  = TEFFECT2B  ELSE 
TEFFECT2  = TEFFECT2  1 1 " " | TEFFECT2B 
TEFFECT3  - TEFFECT3A 
IF  TEFFECT3  = M " THEN 

TEFFECT3  = TEFFECT3B  ELSE 
TEFFECT3  = TEFFECT3  ||  " " | TEFFECT3B 
TEFFECT4  = TEFFECT4A 
IF  TEFFECT4  = 11  11  THEN 

TEFFECT4  = TEFFECT4B  ELSE 
TEFFECT4  = TEFFECT4  | | " " | TEFFECT4B 
TEFFECT5  = TEFFECT5A 
IF  TEFFECT5  = ■ M THEN 

TEFFECT5  = TEFFECT5B  ELSE 
TEFFECT5  = TEFFECT5  | | " w | TEFFECT5B 
TEFFECT6  = TEFFECT6A 
IF  TEFFECT6  = ,l  M THEN 

TEFFECT6  - TEFFECT6B  ELSE 
TEFFECT6  = TEFFECT6  | | " " | TEFFECT6B 
END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TEFFECT1,  TEFFECT2,  TEFFECT3,  TEFFECT4,  TEFFECT5  AND 
TEFFECT6  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT  BLANK  IS  TEFFECT1, 
THE  SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TEFFECT2,  ETC. 


IF  TCONTINUE  NE  “A"  THEN 
BEGIN 

TTEMP  = TEFFECT1  1 1 M#$#M  | TEFFECT2  1 1 "#$#"  | TEFFECT3  1 1 ,,#$#M  | 


| TDESC2 
| TDESC3 


5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 

5931 

5932 

5933 

5934 

5935 

5936 

5937 

5938 

5939 

5940 

5941 

5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 
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TEFFECT4  ||  "#$#"  | TEFFECT5  ||  "#$#"  | TEFFECT6  ||  "#$#" 

WHILE  I LE  6 
BEGIN 
J = 1 

WHILE  J = 1 
BEGIN 

J = FN$STR_LOC ( TTEMP , "#$#") 

IF  J = 0 THEN  TTEFFECT  = " " 

IF  J = 1 THEN  TTEMP  = FN$STR  EXTRACT (TTEMP,  4,  981) 

IF  J GT  1 THEN 
BEGIN 

TTEFFECT  = FN$STR_EXTRACT( TTEMP,  1,  J - 1) 

TTEMP  = FN$STR_EXTRACT( TTEMP,  J,  984  - J + 1) 

END 
END 

IF  I = 1 THEN  TEFFECT1  = TTEFFECT 

IF  I = 2 THEN  TEFFECT2  = TTEFFECT 

IF  I = 3 THEN  TEFFECT3  = TTEFFECT 

IF  I = 4 THEN  TEFFECT4  = TTEFFECT 

IF  I = 5 THEN  TEFFECT5  = TTEFFECT 

IF  I = 6 THEN  TEFFECT6  = TTEFFECT 

1 = 1+1 
END 
END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  IS  STORED  IN 
DOMAIN  FAILUREMODES 


IF  TCONTINUE  NE  "A"  THEN 
BEGIN 

CAL  = "NOW" 

STORE  FAILUREMODES  USING 
BEGIN 

DATECREATED 

SOURCE_SYSTEM 

SOURCEMODULE 

FAILURE_MODE_SUBMODE 

ACCOMPLI CE_S YSTEM 

ACCOMPLICE_MODULE 

DESCRIPTION 

EFFECT1 

EFFECT2 

EFFECT3 

EFFECT4 

EFFECTS 


CAL 

TSSYSTEM 

TSMODULE 

TFMSUBM 

TASYSTEM 

TAMODULE 

TDESC 

TEFFECT1 

TEFFECT2 

TEFFECT3 

TEFFECT4 

TEFFECT5 


5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5973 

5974 

5975 

5976 

5977 

5978 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 
6001 
6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 
6011 
6012 
6013 
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EFFECT6  = TEFFECT6  6014 

END  6015 

END  6016 

! 6017 

! 6018 

! 6020 

! IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN  602i 

! FAILUREMODES  IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENTS  WILL  6022 

! BE  INCLUDED  IN  THE  SESSION  LOG  FILE  WHICH  IS  OPENED  BY  THE  CALLING  6023 

! COMMAND  PROCEDURE.  6024 

! 6025 

! 6027 

IF  TCONTINUE  NE  "A"  THEN  6028 

BEGIN  6029 

ICNT  = ICNT  + 1 6030 

FOR  FAILUREMODES  WITH  FMCODE  = TSSYSTEM  TTSMODULE  | TFMSUBM  I 603 1 

TASYSTEM  TTAMODULE  6032 

PRINT  NEW_PAGE,  SKIP  3,  6033 

COL  1,  "RECORD  NO.",  SPACE  1,  6034 

ICNT  (-)  USING  ZZ9,  SKIP  1,  6035 

COL  1,  ••====================",  SPACE  0,  6036 

» = = = S=Sr  ==::SSSS  = = rSSr»>  SPACE  0,  6037 

SPACE  0,  6038 

"====================',  SKIP  2,  6039 

COL  3,  "DATE_CREATED  SPACE  1,  6040 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  604i 

COL  3,  "SOURCE_SYSTEM_MODULE  SPACE  1,  6042 

SOURCEJYSTEM  (-)  USING  X(4),  SPACE  1,  6043 

SOURCE_MODULE  (-)  USING  9(4),  SKIP  1,  6044 

COL  3,  "FAILURE_MODE_SUBMODE  SPACE  1,  6045 

1 FAI LURE_MODE_SUBMODE  (-)  USING  X(4),  SKIP  1,  6046 

COL  3,  "ACCOMPLICE_SYSTEM_MODULE  SPACE  1,  6047 

ACCOMPLICE_SYSTEM  (-)  USING  X(4),  SPACE  1,  6048 

ACCOMPLICE_MODULE  (-)  USING  9(4),  SKIP  1,  6049 

COL  3,  "DESCRIPTION  SPACE  1,  eoso 

DESCRIPTION  (-)  USING  T(50),  SKIP  1,  eosi 

COL  3,  "EFFECT1  SPACE  1,  6052 

EFFECT1  (-)  USING  T(50),  SKIP  1,  6053 

COL  3,  "EFFECT2  :",  SPACE  1,  6054 

EFFECT2  (-)  USING  T(50),  SKIP  1,  6055 

COL  3,  "EFFECT3  SPACE  1,  6056 

EFFECT3  (-)  USING  T(50),  SKIP  1,  6057 

COL  3,  "EFFECT4  :",  SPACE  1,  6058 

EFFECT4  (-)  USING  T(50),  SKIP  1,  6059 

COL  3,  "EFFECTS  SPACE  1,  6060 

EFFECTS  (-)  USING  T(50),  SKIP  1,  eoei 

COL  3,  "EFFECT6  :",  SPACE  1,  6062 

EFFECT6  (-)  USING  T(50),  SKIP  2,  6063 

COL  1,  "====================",  SPACE  0,  6064 
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- “ » 


it 


It 


II 


SPACE  0, 
SPACE  0, 


: BELL 
END 


IF  TCONTINUE  IS  EQUAL  TO  "A" , A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED.  THIS 
MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE,  SKIP  3, 

COL  1,  ========================================,  SPACE  0, 

u = = = = = = = = = = = = = = = = = = = = = = = ::  = = = = = = = = = = = = = = = =)1  SKIp  4 

COL  9 SKIP  2 

COL  9 ! "*****  RECORD  NOT  STORED  *****",’  SKIP  l\ 

COL  9 11  ******************************* 11  SKIP  4 

COL  1 1 ’==™=================================='  J SPACE  0, 


END 


IF  TCONTINUE  EQUALS  "A",  A RESPONSE  IS  REQUESTED  TO  EITHER  CONTINUE 
THE  PROCEDURE  TO  STORE  FAILUREMODES  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE 
: CLRSCRN 
TCONTINUE  = "X" 

WHILE  TCONTINUE  NE  "Y"  AND 
TCONTINUE  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  entering  FAILUREMODES?", 
SKIP  1 

TCONTINUE  = FN$UPCASE(*."Y  or  N") 

PRINT  " " 


END 


6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 
6081 
6082 

6083 

6084 

6085 

6086 

6087 

6088 

6089 

6090 

6091 

6092 

6093 

6094 

6095 

6096 

6097 

6098 

6099 

6100 
6101 
6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 
611  1 
6112 
6113 
61  14 
6115 


END 


END 
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END-PROCEDURE 


6116 
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DEFINE  PROCEDURE  HDR 

61  17 

DECLARE  CAL  USAGE  DATE  EDIT  STRING  X(20). 

6118 

CAL  = "NOW" 

61  19 

PRINT  "<ESC>"  ||  "["  ||  M?"  ||  "5”  | 

| "i" 

6120 

PRINT  SPACE  2,  CAL  (-),  SKIP  3 

6121 

PRINT  "<ESC>"  ||  "["  ||  ”?"  ||  "4"  | 

| "1" 

6122 

END-PROCEDURE 

6123 
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DEFINE  PROCEDURE  MOD 
1 
1 

_MODIFY 

6124 

6125 

6126 

j 

6 1 27 
6128 

! VARIABLES  ASSOCIATED  WITH  FIRST  THREE  INPUT  FIELDS  FOR 

6129 

! DOMAIN  MODULES: 

6130 

! 1.  SYSTEM 

6131 

! 2.  MODULE 

6132 

! 3.  SYSTEM_MODULE_NAME 

6133 

! 

6134 

1 

6135 

6136 

DECLARE  TSYSTEM 

PIC  X(4) . 

6137 

DECLARE  TMODULE 

PIC  X(4) . 

6138 

DECLARE  NMODULE 

PIC  9(4). 

6139 

DECLARE  TMODULE1 

PIC  X(l). 

6140 

DECLARE  TMODULE2 

PIC  X(l). 

6141 

DECLARE  TMODULE3 

PIC  X(l). 

6142 

DECLARE  TMODULE4 

PIC  X(l). 

6143 

DECLARE  TSMNAME 

PIC  X(80) . 

6144 

DECLARE  TTSMNAME 

PIC  X(80) . 

6145 

J 

6146 

| 

6147 

J 

6148 

6149 

! VARIABLES  ASSOCIATED  WITH  SYSTEM_MODULE_FUNCTION 

6150 

1 

6151 

I 

6152 

6153 

DECLARE  TSMFUNC1 

PIC  X ( 80 ) . 

6154 

DECLARE  TSMFUNC2 

PIC  X(80). 

6155 

DECLARE  TSMFUNC3 

PIC  X(80) . 

6156 

DECLARE  TSMFUNC 

PIC  X( 242 ) . 

6157 

DECLARE  TTSMFUNC1 

PIC  X(80) . 

6158 

DECLARE  TTSMFUNC2 

PIC  X(80) . 

6159 

DECLARE  TTSMFUNC3 

PIC  X(80) . 

6160 

DECLARE  TTSMFUNC 

PIC  X(242) . 

6161 

DECLARE  TSMFUNC I 

PIC  X(80). 

6162 

I 

6163 

1 

6164 

ft  1 ft  c 

1 

O 1 DO 
6166 

! VARIABLES  USED  AS 

FLAGS  OR  CONDITION  INDICATORS 

6167 

| 

6168 

| 

6 1 69 

6170 

DECLARE  TCONTINUE1 

PIC  ,X(1). 

6171 

DECLARE  TCONTINUE2 

PIC  X(l). 

6172 

DECLARE  I MSG 

PIC  9(2). 

6173 

DECLARE  FLG1 

PIC  X(l). 

6174 
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I 

I 


DECLARE  FLG2 
DECLARE  FLG3 
DECLARE  FLG4 


PIC  X(l). 
PIC  X(l). 
PIC  X(l). 


I 

I 

I 

I 


I 

I 


I 

I 

I 


VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 


DECLARE  TMSG  PIC  X(80). 
DECLARE  TMSG1  PIC  X(80). 
DECLARE  TMSG2  PIC  X(80). 
DECLARE  TMSG3  PIC  X(80). 
DECLARE  TMSG4  PIC  X(80). 
DECLARE  TMSG5  PIC  X(80). 
DECLARE  TMSG6  PIC  X(80). 
DECLARE  TMSG7  PIC  X(80). 
DECLARE  TMSG8  PIC  X(80). 
DECLARE  TMSG9  PIC  X(80). 
DECLARE  TMSGIO  PIC  X(80). 
DECLARE  TMSG 11  PIC  X(80). 
DECLARE  TMSG12  PIC  X(80). 
DECLARE  TMSG 13  PIC  X(80). 


VARIABLES  USED  AS  COUNTERS 


DECLARE  ICNT  PIC  9(4). 
DECLARE  JCNT  PIC  9(4). 
DECLARE  KCNT  PIC  9(4). 
DECLARE  I PIC  9(4). 
DECLARE  J PIC  9(4). 


VARIABLES  USED  TO  TEMPORARILY  STORE  MODULE  DATA  FOR  COMPARISON  OF 
INITIAL  AND  MODIFIED  VALUES 


1 

6220 

DECLARE  HDCREATED 

USAGE  DATE 

6221 

EDIT  STRING  X(23). 

6222 

DECLARE  HSYSTEM 

PIC  X(4) . 

6223 

DECLARE  HMODULE 

PIC  9(4). 

6224 

DECLARE  HSMNAME 

PIC  X(80) . 

6225 

F-152 


Datatrieve  Procedure  M0D_M0DIFY  (cont.) 


6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 

VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE  j 6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

6245 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 


TMSG1  = “ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY"  6261 

TMSG2  = “DATA  MUST  BE  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS  OR  CONTINUE  " | 6262 

“MUST  BE  N"  6263 

TMSG3  = "SYSTEM  IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS"  6264 

TMSG4  = "MODULE  IS  NOT  VALID  - MUST  BE  NUMERIC  IN  RANGE  1 TO  9999  INCLUSIVE"  6265 

TMSG5  = "SYSTEM  & MODULE  IS  NOT  VALID  - NOT  IN  DOMAIN  MODULES"  6266 

TMSG6  = "MODULE  IS  NOT  VALID  — NOT  IN  DOMAIN  MODULES"  6267 

TMSG7  = "THE  FIRST  LINE  OF  THE  MODULE  FUNCTION  SHOULD  NOT  END  WITH  " | 6268 

"A  HYPENATED  WORD"  6269 

TMSG8  * "THE  SECOND  LINE  OF  THE  MODULE  FUNCTION  SHOULD  NOT  END  WITH  " | 6270 

"A  HYPENATED  WORD"  627 i 

TMSG9  = "CONTINUE  IS  NOT  VALID  — MUST  BE  Y OR  N"  6272 

TMSG10  = "NO  RECORDS  HAVE  BEEN  FOUND  WITH  THE  DATA  INDICATED  ABOVE"  6273 

TMSG11  = "ENTER  MODIFICATIONS  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY"  6274 

TMSG12  = "MODULE  NAME  NOT  VALID  - ALREADY  EXISTS  IN  DOMAIN  MODULES  " | 6275 

"FOR  SYSTEM"  6276 


DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  DOMAINS  SYSTEMS,  MODULES  AND  MODULES_FORM 


SET  ABORT 

READY  MODULES  SHARED  WRITE 
READY  SYSTEMS  SHARED  READ 
READY  MODULES_FORM  SHARED  READ 


INITIALIZE  THE  MESSAGE  VARIABLES  AND  INITIALIZE  THE  COUNTER  (KCNT) 
USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


DECLARE  HSMFUNC  PIC  X(242). 

DECLARE  HDLASTMOD  USAGE  DATE 

EDIT_STRING  X(23). 
DECLARE  HMODPROC  PIC  X(20). 
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TMSG13  = "CONTINUE  IS  NOT  VALID  --  MUST  BE  Y,  N OR  A"  6277 
KCNT  = 0 6278 
! 6279 
! ( 6280 

! 6282 
! PRIMARY  LOOP  TO  MODIFY  MODULES  6283 

! 6284 

! THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS:  6285 
! 1.  LOOP  TO  REQUEST  SEARCH  DATA,  TEST  VALUES,  PROMPT  FOR  CORRECTION  6286 
! OF  INVALID  INFORMATION  AND  COUNT  THE  RECORDS  WHICH  MATCH  THE  6287 
! SPECIFIED  INPUT  FIELDS  6288 
! 2.  IF  TC0NTINUE1  NE  "N\  SECTION  TO  DISPLAY  THE  MATCHING  RECORDS  6289 
! ONE  AT  A TIME  FOR  POSSIBLE  MODIFICATION  (THIS  SECTION  IS  6290 
! TERMINATED  WHEN  TC0NTINUE2  * "N")  629 i 
! 3.  IF  TC0NTINUE1  = "N",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE  6292 
! PROCEDURE  OR  EXIT  TO  MENU  6293 

! 6294' 

! 6296 
TC0NTINUE1  = "Y"  6297 
WHILE  TC0NTINUE1  = "Y"  6298 
BEGIN  6299 
! 6300 
! 6301 


| 6303 

| LOOP  TO  DISPLAY  BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE  6304 

| FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA  6305 


| | 6306 

6308 

FLG1  = "N"  6309 

IMSG  a 1 6310 

WHILE  FLG1  = "N"  63 ii 

BEGIN  6312 

IF  IMSG  = 1 THEN  TMSG  = TMSG1  63 1 3 

IF  IMSG  = 2 THEN  TMSG  = TMSG2  63 1 4 

IF  IMSG  = 3 THEN  TMSG  = TMSG3  63 is 

IF  IMSG  = 4 THEN  TMSG  = TMSG4  63 i 6 

IF  IMSG  = 5 THEN  TMSG  = TMSG5  63 i i 

IF  IMSG  = 6 THEN  TMSG  = TMSG6  63 i a 

IF  IMSG  = 7 THEN  TMSG  = TMSG7  63 i 9 

IF  IMSG  = 8 THEN  TMSG  = TMSG8  6320 

IF  IMSG  = 9 THEN  TMSG  = TMSG9  632 i 

IF  IMSG  = 10  THEN  TMSG  = TMSG10  6322 

6323 

6324 

I I 6326 


6327 


THIS  SECTION  DISPLAYS  THE  FIND  MODULES  FORM  AND  RETRIEVES 
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| THE  DATA  ENTERED  ON  THE  FORM  6328 

| 6329 

6331 

FOR  FIRST  1 MODULES_FORM  6332 

BEGIN  6333 

DISPLAY_FORM  MODULES_FIN_FORM  IN  6334 

DEVS206 : [ BCDSSME2 . FORMS] FORMSLIB . RLB  USING  6335 

BEGIN  6336 

IF  I MSG  NE  1 THEN  6337 

BEGIN  6338 

PUT_FORM  SYSTEM  = TSYSTEM  6339 

PUT_FORM  MODULE  = TMODULE  6340 

PUT_FORM  MODULE_NAME  = TSMNAME  634 i 

PUT_FORM  FUNCTION_l  = TSMFUNC1  6342 

PUT_FORM  FUNCTION_2  = TSMFUNC2  6343 

PUT_FORM  FUNCTIONS  = TSMFUNC3  6344 

END  6345 

PUT_FORM  CONTINUE  = TCONTINUE1  6346 

PUT_FORM  MESSAGE  = TMSG  6347 

END  RETRIEVE  USING  6348 

BEGIN  6349 

TSYSTEM  = GET_FORM  SYSTEM  6350 

TMODULE  = GET_FORM  MODULE  635 i 

TSMNAME  = GET_FORM  MODULE_NAME  6352 

TSMFUNC1  = GET_FORM  FUNCTI0N_1  6353 

TSMFUNC2  = GET_FORM  FUNCTI0N_2  6354 

TSMFUNC3  = GET_FORM  FUNCTI0N_3  6355 

TC0NTINUE1  = GET_FORM  CONTINUE  6356 

END  6357 

END  6358 

TM0DULE1  = FN$STR_EXTRACT ( TMODULE , 1,  1)  6359 

TM0DULE2  = FN$STR_EXTRACT( TMODULE,  2,  1)  6360 

TM0DULE3  = FN$STR_EXTRACT( TMODULE,  3,  1)  636 i 

TM0DULE4  = FN$STR_EXTRACT( TMODULE,  4,  1)  6362 

6363 

6364 

I I 6366 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N",  ANY  LEADING  BLANKS  WHICH  6367 

WERE  INADVERTENTLY  ENTERED  IN  TSMNAME,  TSMFUNC1,  TSMFUNC2  AND  6368 

TSMFUNC3  ARE  REMOVED  6369 

6370 

6372 

IF  TC0NTINUE1  NE  "N"  THEN  6373 

BEGIN  6374 

IF  TSMNAME  NE  " " THEN  6375 

BEGIN  6376 

I = 1 6377 

WHILE  FN$STR_EXTRACT( TSMNAME,  I,  1)  = " " 6378 
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BEGIN  6379 

1 = 1 + 1 6380 

END  6381 

TSMNAME  = FN$STR_EXTRACT ( TSMNAME , I,  80  - I + 1)  6382 

END  6383 

IF  TSMFUNC1  NE  " " THEN  6384 

BEGIN  6385 

I = 1 6386 

WHILE  FN$STR_EXTRACT(TSMFUNC1,  I,  1)  = " " 6387 

BEGIN  6388 

1 = 1 + 1 6389 

END  6390 

TSMFUNC1  = FN$STR_EXTRACT ( TSMFUNC1 , I,  80  - I + 1)  639 1 

END  6392 

IF  TSMFUNC2  NE  " “ THEN  6393 

BEGIN  6394 

1=1  6395 

WHILE  FN$STR_EXTRACT ( TSMFUNC2 , I,  1)  = " " 6396 

BEGIN  6397 

1 = 1 + 1 6398 

END  6399 

TSMFUNC2  = FN$STR_EXTRACT ( TSMFUNC2 , I,  80  - I + 1)  6400 

END  640i 

IF  TSMFUNC3  NE  " " THEN  6402 

BEGIN  6403 

1=1  6404 

WHILE  FN$STR_EXTRACT ( TSMFUNC3 , I,  1)  = " " 6405 

BEGIN  6406 

1 = 1 + 1 6407 

END  6408 

TSMFUNC3  = FN$STR_EXTRACT ( TSMFUNC3 , I,  80  - I + 1)  6409 

END  64io 

END  64ii 


6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N",  TESTS  ARE  PERFORMED  TO 
VERIFY  ANY  DATA  ENTERED  ON  THE  FORM.  AS  APPROPRIATE,  THE 
PROCEDURE  CHECKS  ANY  OR  ALL  OF  THE  FOLLOWING: 

1.  DATA  HAS  BEEN  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS 

2.  TSYSTEM  IS  IN  DOMAIN  SYSTEMS 

3.  TMODULE  IS  NUMERIC  IN  RANGE  1 TO  9999  INCLUSIVE 

4.  TSYSTEM  | TMODULE  IS  IN  DOMAIN  MODULES 

5.  TSMFUNC1  DOES  NOT  END  WITH  A HYPENATED  WORD 

6.  TSMFUNC2  DOES  NOT  END  WITH  A HYPENATED  WORD 

7.  TC0NTINUE1  IS  "Y"  OR  "N" 

8.  AT  LEAST  ONE  RECORD  EXISTS  WITH  THE  DATA  SPECIFIED 
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FLG1  = -Y-  6430 

IF  TC0NTINUE1  NE  "N"  THEN  643i 

BEGIN  6432 

IF  TSYSTEM  = " " AND  TMODULE  = " - AND  6433 

TSMNAME  = " " AND  6434 

TSMFUNC1  = " " AND  TSMFUNC2  = " " AND  TSMFUNC3  = " " THEN  6435 

BEGIN  6436 

FLG1  = "NM  6437 

I MSG  = 2 6438 

END  6439 

IF  FLG1  = "Y"  AND  6440 

TSYSTEM  NE  M " THEN  6441 

BEGIN  6442 

FLG2  = "N"  6443 

FOR  FIRST  1 SYSTEMS  WITH  SYSTEM  = TSYSTEM  6444 

BEGIN  6445 

FLG2  = "Y"  6446 

END  6447 

IF  FLG2  = “N"  THEN  6448 

BEGIN  6449 

FLG1  = "N"  6450 

I MSG  = 3 6451 

END  6452 

END  6453 

IF  FLG1  = "Y"  AND  6454 

TMODULE  NE  “ • THEN  6455 

BEGIN  6456 

FLG2  = "N"  6457 

IF  (TM0DULE1  = " " OR  TM0DULE1  IN  NUMBER_TABLE)  AND  6458 

(TM0DULE2  = - " OR  TM0DULE2  IN  NUMBER_TABLE)  AND  6459 

(TM0DULE3  = " " OR  TM0DULE3  IN  NUMBER_TABLE)  AND  6460 

(TM0DULE4  = - " OR  TM0DULE4  IN  NUMBER_TABLE)  THEN  646 1 

BEGIN  6462 

NMODULE  = TMODULE  6463 

IF  NMODULE  GT  0 THEN  6464 

FLG2  = “YM  6465 

END  6466 

IF  FLG2  = "N"  THEN  6467 

BEGIN  6468 

FLG1  = "NM  6469 

I MSG  = 4 6470 

END  6471 

END  6472 

IF  FLG1  = "Y"  AND  6473 

TSYSTEM  NE  " - AND  6474 

TMODULE  NE  - " THEN  6475 

BEGIN  6476 

FLG2  = "N"  6477 

TMODULE  = NMODULE  6478 

IF  NMODULE  LT  1000  THEN  TMODULE  = “O"  I TMODULE  6479 

IF  NMODULE  LT  100  THEN  TMODULE  = M0"  | TMODULE  6480 
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IF  NMODULE  LT  10  THEN  TMODULE  = “O"  | TMODULE  648 1 

FOR  FIRST  1 MODULES  WITH  6482 

SYSTEM_MODULE  = TSYSTEM  | TMODULE  FLG2  = "YH  6483 

IF  FLG2  = "N"  THEN  6484 

BEGIN  6485 

FLG1  = "N"  6486 

IMSG  = 5 6487 

END  6488 

END  6489 

IF  FLG1  = "Y"  AND  6490 

TSYSTEM  = " • AND  649 i 

TMODULE  NE  " " THEN  6492 

BEGIN  6493 

FLG2  = "N"  6494 

FOR  FIRST  1 MODULES  WITH  6495 

MODULE  = NMODULE  FLG2  = "Y"  6496 

IF  FLG2  = "N"  THEN  6497 

BEGIN  6498 

FLG1  = "N"  6499 

IMSG  * 6 6500 

END  6501 

END  6502 

IF  FLG1  = "Y"  THEN  6503 

BEGIN  6504 

I = 1 6505 

WHILE  FLG1  = "Y"  AND  I LE  2 6506 

BEGIN  6507 

IF  I = 1 THEN  TSMFUNCI  = TSMFUNC1  6508 

IF  I • 2 THEN  TSMFUNCI  = TSMFUNC2  6509 

IF  TSMFUNCI  NE  " " THEN  65 io 

BEGIN  65ii 

J * 80  6512 

WHILE  FN$STR_EXTRACT( TSMFUNCI,  J,  1)  * " " 65 i 3 

BEGIN  6514 

J ! J ■ 1 6515 

END  6516 

IF  FNSSTR_EXTRACT( TSMFUNCI,  65 1 7 

J,  1)  = AND  6518 

FN$STR_EXTRACT( TSMFUNCI,  65 i 9 

J - 1,  1)  NE  " " AND  6520 

FN$STR_EXTRACT( TSMFUNCI,  652 1 

J - 2,  2)  NE  " THEN  6522 

BEGIN  6523 

FLG1  = "N"  6524 

IF  I = 1 THEN  IMSG  = 7 6525 

IF  I = 2 THEN  IMSG  = 8 6526 

END  6527 

END  6528 

1 = 1 + 1 6529 

END  6530 

6531 


END 
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IF  FLG1  = "Y"  THEN  6532 

BEGIN  6533 

IF  TC0NTINUE1  NE  HY"  AND  6534 

TCONTINUE1  NE  "N"  THEN  6535 

BEGIN  6536 

FLG1  = "N"  6537 

I MSG  = 9 6538 

END  6539 

END  6540 

IF  FLG1  = "Y"  THEN  6541 

BEGIN  6542 

TSMFUNC  = TSMFUNC1  6543 

IF  TSMFUNC  = " " THEN  6544 

TSMFUNC  = TSMFUNC2  ELSE  6545 

TSMFUNC  = TSMFUNC  | | ” " | TSMFUNC2  6546 

IF  TSMFUNC  = " " THEN  6547 

TSMFUNC  = TSMFUNC3  ELSE  6548 

TSMFUNC  = TSMFUNC  | | " " | TSMFUNC3  6549 

END  6550 

IF  FLG1  * "Y“  THEN  6551 

BEGIN  6552 

FLG2  = "N"  6553 

IF  TSYSTEM  NE  " " AND  TMODULE  NE  “ " THEN  6554 

BEGIN  6555 

FLG2  = "Y"  6556 

JCNT  = 0 6557 

FOR  MODULES  WITH  6558 

SYSTEM_MODULE  = TSYSTEM  | TMODULE  6559 

BEGIN  6560 

FLG3  = "Y"  656i 

IF  TSMNAME  NE  " " AND  6562 

SYSTEM_MODULE_NAME  NE  TSMNAME  THEN  6563 

FLG3  = "N"  6564 

IF  TSMFUNC  NE  " " AND  6565 

SYSTEM_MODULE_FUNCTION  NE  TSMFUNC  THEN  6566 

FLG3  = "N"  6567 

IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 1 6568 

END  6569 

IF  JCNT  = 0 THEN  6570 

BEGIN  6571 

FLG1  = "N"  6572 

I MSG  = 10  6573 

END  6574 

END  6575 

IF  FLG2  = "N"  THEN  6576 

BEGIN  6577 

JCNT  = 0 6578 

FOR  MODULES  6579 

BEGIN  6580 

FLG3  = "Y"  6581 

IF  TSYSTEM  NE  " " AND  6582 
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SYSTEM  NE  TSYSTEM  THEN  6583 

FLG3  = "N"  6584 

IF  TMODULE  NE  " " AND  6585 

MODULE  NE  NMODULE  THEN  6586 

FLG3  = "N"  6587 

IF  TSMNAME  NE  " " AND  6588 

SYSTEM_MODULE_NAME  NE  TSMNAME  THEN  6589 

FLG3  = "N"  6590 

IF  TSMFUNC  NE  " " AND  6S9i 

SYSTEM_MODULE_FUNCTION  NE  TSMFUNC  THEN  6592 

FLG3  = "N"  6593 

IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 1 6594 

END  6595 

IF  JCNT  = 0 THEN  6596 

BEGIN  6597 

FLG1  = "N"  6598 

I MSG  = 10  6599 

END  6600 

END  660i 

END  6602 

END  6603 

END  6604 

6605 

6606 

6608 

IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N\  THIS  SECTION  DISPLAYS  THE  6609 

INDICATED  RECORDS  ONE  AT  A TIME  AND  ALLOWS  CORRECTIONS  TO  BE  MADE  66 io 

TO  ANY  OR  ALL  OF  THE  RECORDS.  THE  FIELDS  SYSTEM  AND  MODULE  CANNOT  66 n 

BE  CHANGED  SINCE  THESE  TWO  FIELDS  UNIQUELY  DEFINE  THE  MODULE.  6612 

6613 

6615 

IF  TC0NTINUE1  NE  "N"  THEN  6616 

BEGIN  6617 

TC0NTINUE2  = "Y"  66 is 

FLG2  = "N"  6619 

IF  TSYSTEM  NE  " " AND  TMODULE  NE  " " THEN  6620 

BEGIN  6621 

FLG2  = "Y"  6622 

ICNT  = 0 6623 

FOR  MODULES  WITH  6624 

SYSTEM_MODULE  = TSYSTEM  | TMODULE  6625 

BEGIN  6626 

IF  TC0NTINUE2  = "Y"  THEN  6627 

BEGIN  6628 

FLG3  = "Y"  6629 

IF  TSMNAME  NE  " - AND  6630 

SYSTEM_MODULE_NAME  NE  TSMNAME  THEN  663 1 

FLG3  = "N"  6632 

IF  TSMFUNC  NE  " " AND  6633 
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SYSTEM_MODULE_FUNCTION  NE  TSMFUNC  THEN 
FLG3  = "N" 

IF  FLG3  = "Y"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
:MOD_MODIFY_l 
END 
END 
END 
END 

IF  FLG2  = "N"  THEN 
BEGIN 

ICNT  = 0 

FOR  MODULES  SORTED  BY  SYSTEM_MODULE 
BEGIN 

IF  TC0NTINUE2  = "Y"  THEN 
BEGIN 

FLG3  = "Y" 

IF  TSYSTEM  NE  " " AND 

SYSTEM  NE  TSYSTEM  THEN 

FLG3  = "N" 

IF  TMODULE  NE  " " AND 

MODULE  NE  NMODULE  THEN 

FLG3  = "N" 

TP  "KMKIAMF  NF  11  " AND 

SYSTEM_MODULE_NAME  NE  TSMNAME  THEN 

FLG3  = "N" 

IF  TSMFUNC  NE  " " AND 

SYSTEM_MODULE_FUNCTION  NE  TSMFUNC  THEN 
FLG3  = "N" 

IF  FLG3  = "Y"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
:MOD_MODIFY_l 
END 


END 


END 


END 


END 


IF  TCONTINUE1  IS  EQUAL  TO  "N\  A RESPONSE  IS  REQUESTED  TO  EITHER 
CONTINUE  THE  PROCEDURE  TO  MODIFY  MODULES  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE1  = "N"  THEN 
BEGIN 

PRINT  NEW  PAGE 


6634 

6635 

6636 

6637 

6638 

6639 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 
6681 
6682 

6683 

6684 
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: CLRSCRN  6685 

TC0NTINUE1  = "X"  6686 

WHILE  TC0NTINUE1  NE  "Y"  AND  668? 

TCONTINUE1  NE  "N"  6688 

BEGIN  6689 

PRINT  SKIP  2,  6690 

"Do  you  wish  to  continue  modifying",  SKIP  1,  669i 

"MODULES?",  SKIP  1 6692 

TC0NTINUE1  = FN$UPCASE(*. "Y  or  N")  6693 

PRINT  " " 6694 

END  6695 

END  6696 

END  6697 

END-PROCEDURE  6698 
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DEFINE  PROCEDURE  M0D_M0DIFY_1 


THE  FIELDS  OF  THE  INCOMING  MODULE  RECORD  ARE  ASSIGNED  TO  VARIABLES  FOR 
DISPLAY  AND  MODIFICATION.  THE  FIELDS  SYSTEM  AND  MODULE  ARE  NOT 
ASSIGNED  TO  VARIABLES  SINCE  THESE  FIELDS  CANNOT  BE  MODIFIED. 


TTSMNAME  = SYSTEM  MODULEJAME 
TTSMFUNC  = SYSTEM_MODULE_FUNCTION 


THIS  SECTION  SPLITS  THE  COMPOSITE  VARIABLE  TTSMFUNC  INTO  VARIABLES 
WHICH  ARE  80  CHARACTERS  LONG  FOR  DISPLAY  ON  THE  TDMS  FORM 


I = 1 

WHILE  I LE  3 
BEGIN 

IF  TTSMFUNC  NE  " H THEN 
BEGIN 
J = 1 

WHILE  FN$STR_EXTRACT( TTSMFUNC,  J,  1)  = 11  11 
BEGIN 

J = J + 1 
END 

TTSMFUNC  = FNSSTR  EXTRACT ( TTSMFUNC,  J,  242  - J + 1) 
END 

FLG4  * "NM 

IF  FNSSTR ^EXTRACT ( TTSMFUNC , 80,  1)  = 11  M OR 
FN$STRJXTRACT( TTSMFUNC,  81,  1)  = 11  " THEN 
BEGIN 

TSMFUNCI  = FNSSTR_EXTRACT( TTSMFUNC,  1,  80) 

TTSMFUNC  = FN$STR_EXTRACT( TTSMFUNC,  81,  162) 

FLG4  = ,,YM 
END 

IF  FLG4  = "Nu  THEN 
BEGIN 
J = 80 

WHILE  FNSSTRJXTRACT( TTSMFUNC,  J,  1)  NE  11  ■ AND 
J GT  1 
BEGIN 

J = J - 1 
END 
CHOICE 


6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 

6711 

6712 

6713 

6714 

6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 

6743 

6744 

6745 

6746 

6747 
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J = 1 THEN  TSMFUNCI  = FN$STR_EXTRACT ( TTSMFUNC , 1,  80) 

J GT  1 THEN  TSMFUNCI  = FN$STR_EXTRACT ( TTSMFUNC , 1,  J - 1 + 1) 

END_CHOICE 
CHOICE 

J = 1 THEN  TTSMFUNC  = FN$STR_EXTRACT( TTSMFUNC,  81,  162) 

J GT  1 THEN  TTSMFUNC  = FN$STR_EXTRACT( TTSMFUNC,  J + 1, 

242  - (J  + 1)  + 1) 

END_CHOICE 

END 

IF  I = 1 THEN  TTSMFUNC1  = TSMFUNCI 

IF  I - 2 THEN  TTSMFUNC2  = TSMFUNCI 

IF  I = 3 THEN  TTSMFUNC3  = TSMFUNCI 

1 = 1 + 1 


LOOP  TO  DISPLAY  A MODULE  RECORD  USING  A TDMS  FORM,  RETRIEVE  DATA  FROM 
THE  FORM,  TEST  THE  INCOMING  INFORMATION  AND  REQUEST  CORRECTION  OF 
INVALID  DATA 


FLG4  = "N" 

I MSG  = 11 
WHILE  FLG4  = "N" 

BEGIN 

IF  I MSG  = 7 THEN  TMSG  = TMSG7 

IF  I MSG  = 8 THEN  TMSG  = TMSG8 

IF  I MSG  = 11  THEN  TMSG  = TMSG11 

IF  I MSG  = 12  THEN  TMSG  = TMSG12 

IF  I MSG  = 13  THEN  TMSG  = TMSG 13 


SYSTEM 


THIS  SECTION  DISPLAYS  THE  MODIFY  MODULES  FORM  AND  RETRIEVES  THE 
DATA  ENTERED  ON  THE  FORM 


DISPLAY  FORM  MOD U L ES_MOD_F ORM  IN 

DEV$206: [BCDSSME2.F0RMSJF0RMSLIB.RLB  USING 
BEGIN 

PUT_FORM  RECORD_NUMBER  = ICNT 
PUT_FORM  TOTAL  RECORDS  = JCNT 
PUT_FORM  SYSTEM  = SYSTEM 

PUT_FORM  MODULE  = MODULE 

PUT_FORM  MODULE_NAME  = TTSMNAME 
PUT  FORM  FUNCTION  1 = TTSMFUNC1 
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PUTJORM  FUNCTION^  = TTSMFUNC2 

PUTJORM  FUNCTIONS  = TTSMFUNC3 

IF  I MSG  = 11  THEN 

PUTJORM  CONTINUE  = "Y" 

IF  IMSG  NE  11  THEN 

PUTJORM  CONTINUE  = TCONTINUE2 

PUTJORM  MESSAGE  = TMSG 

END  RETRIEVE  USING 
BEGIN 

TTSMNAME  = GETJORM  MODULE JAME 
TTSMFUNC1  = GETJORM  FUNCTION J 
TTSMFUNC2  = GETJORM  FUNCTION_2 
TTSMFUNC3  = GETJORM  FUNCTIONJ 
TCONTINUE2  = GETJORM  CONTINUE 
END 


IF  TCONTINUE2  IS  NOT  EQUAL  TO  HA\  ANY  LEADING  BLANKS  WHICH  WERE 
INADVERTENTLY  ENTERED  IN  TTSMNAME,  TTSMFUNC1,  TTSMFUNC2  AND 
TTSMFUNC3  ARE  REMOVED 


IF  TCONTINUE2  NE  "A"  THEN 
BEGIN 

IF  TTSMNAME  NE  " " THEN 
BEGIN 
I = 1 

WHILE  FN$STRJXTRACT( TTSMNAME,  I,  1)  = " “ 

BEGIN 

1 = 1 + 1 

END 

TTSMNAME  = FNSSTR  JXTRACT( TTSMNAME,  I,  80  - I + 1) 
END 

IF  TTSMFUNC1  NE  " M THEN 
BEGIN 
I = 1 

WHILE  FNSSTR  JXTRACT ( TTSMFUNC1 , I,  1)  = M " 

BEGIN 

1 = 1 + 1 

END 

TTSMFUNC1  = FNSSTR JXTRACT ( TTSMFUNC1 , I,  80  - I + 1) 
END 

IF  TTSMFUNC2  NE  " " THEN 
BEGIN 
I = 1 

WHILE  FNSSTR  JXTRACT  ( TTSMFUNC2 , I,  1)  = " " 

BEGIN 

1 = 1 + 1 
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END 

TTSMFUNC2  = FN$STR_EXTRACT ( TTSMFUNC2 , I,  80  - I + 1) 
END 

IF  TTSMFUNC3  NE  B " THEN 
BEGIN 
I = 1 

WHILE  FN$STR_EXTRACT ( TTSMFUNC3 , I,  1)  = M " 

BEGIN 

1 = 1 + 1 
END 

TTSMFUNC3  = FN$STR  EXTRACT ( TTSMFUNC3 , I,  80  - I + 1) 
END 
END 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TTSMNAME  DOES  NOT  ALREADY  EXIST  IN  DOMAIN  MODULES  FOR  THE 
CURRENT  SYSTEM 

2.  TTSMFUNC1  DOES  NOT  END  WITH  A HYPHENATED  WORD 

3.  TTSMFUNC2  DOES  NOT  END  WITH  A HYPHENATED  WORD 

4.  TC0NTINUE2  IS  “Y\  “N"  OR  "A" 


FLG4  = "Y" 

IF  TC0NTINUE2  NE  “A11  THEN 
BEGIN 

IF  TTSMNAME  NE  SYSTEM_MODULE_NAME  THEN 
BEGIN 

HSYSTEM  = SYSTEM 
HMODULE  = MODULE 

FOR  MODULES  WITH  SYSTEM  = HSYSTEM  AND 
MODULE  NE  HMODULE 

IF  SYSTEM_MODULE_NAME  = TTSMNAME  THEN 
BEGIN 

FLG4  = "N" 

IMSG  = 12 
END 
END 

IF  FLG4  = "Y"  THEN 
BEGIN 
I = 1 

WHILE  FLG4  = "Y"  AND  I LE  2 
BEGIN 

IF  I = 1 THEN  TSMFUNCI  = TTSMFUNC1 
IF  I = 2 THEN  TSMFUNCI  = TTSMFUNC2 
IF  TSMFUNCI  NE  " H THEN 
BEGIN 
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J 

= 80 

6903 

WHILE  FNSSTR  EXTRACT (TSMFUNC I,  J,  1)  = " " 

6904 

BEGIN 

6905 

J = J - 1 

6906 

END 

6907 

IF  FNSSTR  EXTRACT (TSMFUNC I, 

6908 

J,  1)  = AND 

6909 

FNSSTR  EXTRACT (TSMFUNC I, 

6910 

J - 1,  1)  NE  " " AND 

691  1 

FNSSTR  EXTRACT (TSMFUNC I, 

6912 

J - 2,  2)  NE  " THEN 

6913 

BEGIN 

6914 

FLG4  = HN" 

6915 

IF  I = 1 THEN  I MSG  = 7 

6916 

IF  I = 2 THEN  I MSG  = 8 

6917 

END 

6918 

END 

6919 

1 = 1 + 

■ 1 

6920 

END 

6921 

END 

6922 

IF  FLG4  = "Y"  THEN 

6923 

BEGIN 

6924 

IF  TCONTINUE2  NE  "Y"  AND 

6925 

TCONTINUE2  NE  "N"  AND 

6926 

TCONTINUE2  NE  "A"  THEN 

6927 

BEGIN 

6928 

FLG4  = 

"N" 

6929 

I MSG  = 

13 

6930 

END 

6931 

END 

6932 

END 

6933 

END 

6934 

6935 

6936 

ROOT 

oy  j / 
6938 

! IF  TCONTINUE2  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  FOR  THE  j 

6939 

! SYSTEM  MODULE  FUNCTION  IS  CONCATENATED  INTO  THE  COMPOSITE  VARIABLE 

6940 

! TTSMFUNC 

6941 

J 

6942 

J 

oy*f  j 
6944 

IF  TC0NTINUE2  NE  "A"  THEN 

6945 

BEGIN 

6946 

TTSMFUNC  = TTSMFUNC1 

6947 

IF  TTSMFUNC  = " " THEN 

6948 

TTSMFUNC  = TTSMFUNC2 

ELSE 

6949 

TTSMFUNC  = TTSMFUNC 

| " " | TTSMFUNC2 

6950 

IF  TTSMFUNC  = " " 1 

THEN 

6951 

TTSMFUNC  = TTSMFUNC3 

ELSE 

6952 

TTSMFUNC  = TTSMFUNC 

1 " " 1 TTSMFUNC3 

6953 
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END 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A"  AND  NEW  DATA  HAS  BEEN  ENTERED  IN  AT 
LEAST  ONE  OF  THE  RECORD  FIELDS,  THIS  SECTION  PRINTS  THE  INITIAL  RECORD 
DATA  TO  THE  LOG  FILE,  MODIFIES  THE  RECORD  AND  PRINTS  THE  MODIFIED 
RECORD  DATA  TO  THE  LOG  FILE  (HIGHLIGHTING  THE  CHANGED  FIELDS) 


IF  TC0NTINUE2  NE  "A"  AND 
(SYSTEM_MODULE_NAME  NE  TTSMNAME  OR 
SYSTEM_MODULE_FUNCTION  NE  TTSMFUNC)  THEN 
BEGIN 


THIS  SECTION  PRINTS  THE  INITIAL  RECORD  DATA  TO  THE  SESSION  LOG 
FILE 


KCNT  = KCNT  + 1 
PRINT  NEW_PAGE,  SKIP  3, 

COL  1,  "RECORD  NO.  ",  SPACE  0, 

KCNT  (-)  USING  9(4),  SKIP  1, 

:sss=sssss=s=ss===ssssssrssssss"t  SPACE  0, 
: = = = s = = = = = s = = = = = = = = s = = = = = = = = = = =,.  $KIp  1# 

SPACE  0, 
SKIP  2, 


1ISSSSS 
II  _ = = = s 
II..... 


COL  6,  "DATEJREATED  :M,  SPACE  1, 

DATEJREATED  (-)  USING  X(23),  SKIP  1, 
COL  6,  "SYSTEM_MODULE  :\  SPACE  1, 

SYSTEM  (-)  USING  X(4),  SPACE  1, 

MODULE  (-)  USING  9(4),  SKIP  1, 


COL  6,  "SYSTEM  MODULE  NAME 


SYSTEM_MODULE_NAME  (-)  USING  T(49),  SKIP  1, 


COL  6,  "SYSTEM_MODULE  JUNCTION 


SYSTEM_MODULE JUNCTION  (-)  USING  T(49),  SKIP  1, 


COL  6,  " DATE  _L  AST  JOD I F I ED 


DATEJASTJODIFIED  (-)  USING  X(23),  SKIP  1, 


SPACE  1, 


SPACE  1, 


SPACE  1, 


COL  6,  "MODIFYING JROCEDURE 

MOD I F Y I NG J ROCEDURE  (-)  USING  X(20) 


SPACE  1, 


THIS  SECTION  STORES  THE  INITIAL  RECORD  VALUES  FOR  USE  IN 
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HIGHLIGHTING  THE  FIELDS  WHICH  HAVE  BEEN  MODIFIED 


HDCREATED  = DATEJREATED 

HSYSTEM  = SYSTEM 

HMODULE  = MODULE 

HSMNAME  = SYSTEM_MODULE_NAME 

HSMFUNC  = SYSTEM_MODULE_FUNCTION 

HDLASTMOD  = D ATE_L AST_MOD I F I ED 

HMODPROC  = MOD I F Y I NG_PROCEDURE 


THIS  SECTION  MODIFIES  THE  MODULE  RECORD  USING  THE  VERIFIED  DATA  j 
ENTERED  ON  THE  MODIFY  MODULES  FORM 


CAL  = "NOW" 

MODIFY  USING 
BEGIN 

SYSTEM_MODULE_NAME  = TTSMNAME 

SYSTEM_MODULE_FUNCTION  = TTSMFUNC 

DATE_LAST_MOD I F I ED  = CAL 

MOD I FY I NG_PROCEDURE  = "MOD_MOD IFYM 

END 


THIS  SECTION  PRINTS  THE  MODIFIED  RECORD  DATA  TO  THE  SESSION  LOG 
FILE  AND  HIGHLIGHTS  THE  FIELDS  WHICH  CONTAIN  NEW  INFORMATION 


PRINT  SKIP  1, 

COL  1,  ••================-=«™=====—======'1,  SPACE  0, 

„=============s==sss=ss===================h>  SKIP  2, 

COL  1,  CHOICE 

DATE_CREATED  = HDCREATED  THEN  11  H 
ELSE  M***" 


END_CHOICE, 

SPACE  2,  "DATE_CREATED  :n,  SPACE  1, 

DATEJREATED  (-)  USING  X(23),  SKIP  1, 

COL  1,  CHOICE 

SYSTEM  = HSYSTEM  AND 
MODULE  = HMODULE  THEN  ■ 11 

ELSE  "***" 

END_CHOICE, 
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SPACE  2,  "SYSTEM_MODULE  SPACE  1, 

SYSTEM  (-)  USING  X(4),  SPACE  1, 

MODULE  (-)  USING  9(4),  SKIP  1, 

COL  1,  CHOICE 

SYSTEM_MODULE_NAME  = HSMNAME  THEN  " " 

ELSE  "***" 

END  CHOICE, 

SPACE  2,  "SYSTEM_MODULE_NAME  SPACE  1, 

SYSTEM_MODULE_NAME  (-)  USING  T(49),  SKIP  1, 

COL  1,  CHOICE 

SYSTEM  MODULE  JUNCTION  = HSMFUNC  THEN  " " 

ELSE  "***" 

END  CHOICE, 

SPACE  2,  "SYSTEM_MODULE_FUNCTION  SPACE  1, 

SYSTEM_MODULE_FUNCTION  (-)  USING  T(49),  SKIP  1, 

COL  1,  CHOICE 

DATE_LAST  MODIFIED  = HDLASTMOD  THEN  " " 

ELSE 

END  CHOICE, 

SPACE  2,  "DATE  LAST_MODIFIED  SPACE  1, 

DATE ~LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 

COL  1,  CHOICE 

MOD I F Y I NG_PROCEDURE  = HMODPROC  THEN  " " 

ELSE  "***" 

END  CHOICE, 

SPACE  2,  "MODIFYING  PROCEDURE  SPACE  1, 

MOD I F Y I NG~PROCEDURE  (-)  USING  X(20),  SKIP  2, 

COL  1,  "========================================",  SPACE  0, 

»========================================',  SKIP  1, 

<•========================================»,  SPACE  0, 

llssssssss-sssss  = sssssssssssssssssss  = = = sssM 


:BELL 

END 


IF  TC0NTINUE2  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  MODIFIED.  THIS 
MESSAGE  WILL  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TC0NTINUE2  = "A11  THEN 
BEGIN 

PRINT  NEW_PAGE,  SKIP  3, 


COL  1,  » = = = = = = « = « = « = SPACE  0, 

„sr===s===s=s==s;:====!3s=s„s5r====::5;ss:s„sn5  SKIP 


COL  9 "*********************************»  SKIP  2 
COL  9!  ”*****  RECORD  NOT  MODIFIED  *****'■’  SKIP  2, 
COL  9,  M *********************************"  9 SKIP  6, 
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COL  1,  "========================================" , SPACE  0,  7107 

END  7109 

END-PROCEDURE  7 no 
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DEFINE  PROCEDURE  MOD_STORE 


VARIABLES  ASSOCIATED  WITH  FIRST  THREE  INPUT  FIELDS  FOR 
DOMAIN  MODULES: 

1.  SYSTEM 

2.  MODULE 

3.  SYSTEM  MODULE  NAME 


DECLARE  TSYSTEM  PIC  X(4). 
DECLARE  TMODULE  PIC  9(4). 
DECLARE  TTMODULE  PIC  X(4). 
DECLARE  TSMNAME  PIC  X(80). 


VARIABLES  ASSOCIATED  WITH  SYSTEM_MODULE_FUNCTIQN 


DECLARE  TSMFUNC1 
DECLARE  TSMFUNC2 
DECLARE  TSMFUNC3 
DECLARE  TSMFUNCI 
DECLARE  TSMFUNC 


PIC  X(80) . 
PIC  X( 80) . 
PIC  X( 80) . 
PIC  X(80) . 
PIC  X(242) . 


VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 


DECLARE  TCONTINUE  PIC  X(l). 
DECLARE  I MSG  PIC  9(2). 
DECLARE  FLG1  PIC  X(l). 
DECLARE  FLG2  PIC  X(l). 


VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 


711  1 

7112 
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7127 
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7129 

7130 

7131 

7132 

7133 

7134 
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7136 

7137 
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7140 

7141 
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7143 
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7145 
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7147 
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7149 
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7151 

7152 

7153 

7154 

7155 
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7157 

7158 

7159 

7160 

7161 


DECLARE  TMSG 


PIC  X(80) 
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DECLARE  TMSG1 

PIC  X( 80) . 

DECLARE  TMSG2 

PIC  X(80). 

DECLARE  TMSG3 

PIC  X(80). 

DECLARE  TMSG4 

PIC  X(80) . 

DECLARE  TMSG5 

PIC  X(80) . 

DECLARE  TMSG6 

PIC  X(80). 

DECLARE  TMSG7 

PIC  X(80). 

DECLARE  TMSG8 

j 

PIC  X(80). 

| 

! VARIABLES  USED  AS  COUNTERS 

i 

t 

DECLARE  ICNT 

PIC  9(4). 

DECLARE  JCNT 

PIC  9(4). 

DECLARE  I 

PIC  9(4). 

DECLARE  J 

j 

j 

PIC  9(4). 

1 

! VARIABLE  USED 

j 

TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 

1 

DECLARE  CAL 

1 

; 

USAGE  DATE 
EDIT_STRING  X(23). 

j 

! READY  THE  APPROPRIATE  DOMAINS,  INITIALIZE  THE  MESSAGE  VARIABLES, 

! INITIALIZE  THE  COUNTER  (ICNT)  USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 
! AND  INITIALIZE  THE  COUNTER  (JCNT)  USED  TO  CONTROL  THE  NUMBER  OF 
! RECORDS  PRINTED  ON  EACH  PAGE  OF  THE  LOG  FILE 

j 

SET  ABORT 

READY  MODULES  SHARED  WRITE 

READY  SYSTEMS  SHARED  READ 

READY  MODULES JORM  SHARED  READ 

TMSG1  = “ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY'* 

TMSG2  = “SYSTEM  IS  NOT  VALID  - NOT  IN  DOMAIN  SYSTEMS" 

TMSG3  = “MODULE  IS  NOT  VALID  - MUST  BE  GREATER  THAN  0“ 

TMSG4  = “MODULE  IS  NOT  VALID  - ALREADY  EXISTS  IN  DOMAIN  MODULES  FOR  SYSTEM" 

TMSG5  = “MODULE  NAME  NOT  VALID  --  ALREADY  EXISTS  IN  DOMAIN  MODULES  FOR  SYSTEM" 
TMSG6  = “THE  FIRST  LINE  OF  THE  MODULE  FUNCTION  SHOULD  NOT  END  WITH  “ | 

“A  HYPENATED  WORD" 
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TMSG7  = "THE  SECOND  LINE  OF  THE  MODULE  FUNCTION  SHOULD  NOT  END  WITH  " I 
"A  HYPENATED  WORD" 

TMSG8  = "CONTINUE  IS  NOT  VALID  — MUST  BE  Y,  N OR  A" 

ICNT  = 0 
JCNT  = 0 


PRIMARY  LOOP  TO  STORE  MODULES 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR 
CORRECTION  OF  INVALID  INFORMATION 

2.  IF  TCONTINUE  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN 
MODULES  AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED 

3.  IF  TCONTINUE  NE  "A",  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN 
MODULES  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE 

4.  IF  TCONTINUE  = "A",  SECTION  TO  PRINT  MESSAGE  THAT  DATA  CURRENTLY 
ON  FORM  HAS  NOT  BEEN  STORED 

5.  IF  TCONTINUE  = "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE  = "Y" 

WHILE  TCONTINUE  = "Y" 
BEGIN 


LOOP  TO  DISPLAY  A BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


FLG1  = "N" 

I MSG  = 1 

WHILE  FLG1  = "N" 

BEGIN 

IF  I MSG  = 1 THEN  TMSG  = TMSG1 

IF  I MSG  = 2 THEN  TMSG  = TMSG2 

IF  I MSG  = 3 THEN  TMSG  = TMSG3 

IF  I MSG  = 4 THEN  TMSG  = TMSG4 

IF  I MSG  = 5 THEN  TMSG  = TMSG5 

IF  I MSG  = 6 THEN  TMSG  = TMSG6 

IF  I MSG  = 7 THEN  TMSG  = TMSG 7 

IF  I MSG  = 8 THEN  TMSG  = TMSG8 


TSYSTEM 

TSYSTEM 


7213 

7214 

7215 

7216 

7217 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

7226 

7227 

7228 

7229 

7230 

7231 

7232 

7233 

7234 

7235 

7236 

7237 

7238 

7239 

7240 

7241 

7242 

7243 

7244 

7245 

7246 

7247 

7248 

7249 

7250 

7251 

7252 

7253 

7254 

7255 

7256 

7257 

7258 

7259 

7260 

7261 

7262 

7263 
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7264 

7265 

7266 

7267 

7268 

7269 

7270 

7271 

7272 

7273 

7274 

7275 

7276 

7277 

7278 

7279 

7280 

7281 

7282 

7283 

7284 

7285 

7286 

7287 

7288 

7289 

7290 

7291 

7292 

7293 

7294 

7295 

7296 

7297 

7298 

7299 

7300 

7301 

7302 

7303 

7304 

7305 

7306 

7307 


IF  TCONTINUE  NE  "A"  THEN  7308 

BEGIN  7309 

I = 1 7310 

WHILE  FN$$TR_EXTRACT ( TSMNAME , I,  1)  = " " 7311 

BEGIN  7312 

1=1+1  7313 

END  7314 


THIS  SECTION  DISPLAYS  THE  STORE  MODULES  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 


FOR  FIRST  1 MODULES  FORM 
BEGIN 

DISPLAY  JORM  MODULES_STO_FORM  IN 

DEVS206: [ BCDSSME2 . FORMS ] FORMSL IB.RLB  US I NG 
BEGIN 

IF  I MSG  NE  1 THEN 
BEGIN 

PUT_FORM  SYSTEM  = TSYSTEM 
PUT_FORM  MODULE  = TMODULE 
PUT_FORM  MODULE_NAME  = TSMNAME 
PUT_FORM  FUNCTI0N_1  = TSMFUNC1 
PUT_FORM  FUNCTI0N_2  = TSMFUNC2 
PUT_FORM  FUNCTI0N_3  = TSMFUNC3 
END 

PUT_FORM  CONTINUE  = TCONTINUE 
PUT_FORM  MESSAGE  = TMSG 
END  RETRIEVE  USING 


BEGIN 

TSYSTEM 

TMODULE 

TSMNAME 

TSMFUNC1 

TSMFUNC2 

TSMFUNC3 

TCONTINUE 

END 


GETJORM  SYSTEM 
GETJORM  MODULE 
GETJORM  MODULE_NAME 
GETJORM  FUNCTI0N_1 
GETJORM  FUNCTI0N_2 
GETJORM  FUNCTI0N_3 
GET  FORM  CONTINUE 


END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TSMNAME,  TSMFUNC1,  TSMFUNC2  AND 
TSMFUNC3  ARE  REMOVED 
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TSMNAME  = FNSSTREXTRACT ( TSMNAME , I,  80  - I + 1)  7315 

IF  TSMFUNC1  NE  " " THEN  731 6 

BEGIN  7317 

1=1  7318 

WHILE  FN$STR_EXTRACT(TSMFUNC1 , I,  1)  = " " 7319 

BEGIN  7320 

1 = 1 + 1 7321 

END  7322 

TSMFUNC1  = FNSSTREXTRACT ( TSMFUNC1 , I,  80  - I + 1)  7323 

END  7324 

IF  TSMFUNC2  NE  " " THEN  7325 

BEGIN  7326 

1=1  7327 

WHILE  FN$STR_EXTRACT ( TSMFUNC2 , I,  1)  = " " 7328 

BEGIN  7329 

1 = 1 + 1 7330 

END  7331 

TSHFUNC2  = FN$STR_EXTRACT(TSMFUNC2 , I,  80  - I + 1)  7332 

END  7333 

IF  TSMFUNC3  NE  " " THEN  7334 

BEGIN  7335 

1=1  7336 

WHILE  FN$STR_EXTRACT ( TSMFUNC3 , 1,-1)  = " " 7337 

BEGIN  7338 

1 = 1 + 1 7339 

END  7340 

TSMFUNC3  = FN$STR_EXTRACT (TSMFUNC3,  I,  80  - I + 1)  7341 

END  7342 

END  7343 


7344 

7345 

7346 

7347 

7348 

7349 

7350 

7351 

7352 

7353 

7354 

7355 

7356 

7357 

7358 

7359 

7360 

7361 

FLG1  = MY"  7362 

IF  TCONTINUE  NE  "A"  THEN  7363 

BEGIN  7364 

FLG2  = "N"  7365 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TSYSTEM  IS  IN  DOMAIN  SYSTEMS 

2.  TMODULE  IS  NOT  EQUAL  TO  0 (ZERO) 

3.  TMODULE  DOES  NOT  ALREADY  EXIST  FOR  RECORDS  IN  DOMAIN 
MODULES  WITH  SYSTEM  = TSYSTEM 

4.  TSMNAME  DOES  NOT  ALREADY  EXIST  FOR  RECORDS  IN  DOMAIN 
MODULES  WITH  SYSTEM  = TSYSTEM 

5.  TSMFUNC1  DOES  NOT  END  WITH  A HYPENATED  WORD 

6.  TSMFUNC2  DOES  NOT  END  WITH  A HYPENATED  WORD 

7.  TCONTINUE  IS  "Y\  "N"  OR  "A" 
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FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM 

7366 

BEGIN 

7367 

FLG2  = "Y" 

7368 

END 

7369 

IF 

FLG2  = "N"  THEN 

7370 

BEGIN 

7371 

FLG1  = "N" 

7372 

I MSG  = 2 

7373 

END 

7374 

IF 

FLG1  = "Y"  THEN 

7375 

BEGIN 

7376 

IF  TMODULE  = 0 THEN 

7377 

BEGIN 

7378 

FLG1  = "N" 

7379 

I MSG  = 3 

7380 

END 

7381 

END 

7382 

IF 

FLG1  = "Y"  THEN 

7383 

BEGIN 

7384 

FOR  MODULES  WITH  SYSTEM  = TSYSTEM  AND 

7385 

MODULE  = TMODULE 

7386 

BEGIN 

7387 

FLG1  = "N" 

7388 

I MSG  = 4 

7389 

END 

7390 

END 

7391 

IF 

FLG1  = "Y"  THEN 

7392 

BEGIN 

7393 

FOR  MODULES  WITH  SYSTEM 

= TSYSTEM  AND 

7394 

SYSTEM  MODULE 

_NAME  = TSMNAME 

7395 

BEGIN 

7396 

FLG1  = "N" 

7397 

I MSG  = 5 

7398 

END 

7399 

END 

7400 

IF 

FLG1  = "Y"  THEN 

7401 

BEGIN 

7402 

I = 1 

7403 

WHILE  FLG1  = "Y"  AND  I LE  2 

7404 

BEGIN 

7405 

IF  I = 1 THEN  TSMFUNCI  = 

TSMFUNCI 

7406 

IF  I = 2 THEN  TSMFUNCI  = 

TSMFUNC2 

7407 

IF  TSMFUNCI  NE  " " THEN 

7408 

BEGIN 

7409 

J = 80 

7410 

WHILE  FNSSTR  EXTRACT (TSMFUNC I , J,  1)  = ” " 

741  1 

BEGIN 

7412 

J = J - 1 

7413 

END 

7414 

IF  FNSSTR  EXTRACT (TSMFUNC I, 

7415 

J 

, 1)  = AND 

7416 
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7417 

7418 

7419 

7420 

7421 

7422 

7423 

7424 

7425 

7426 

7427 

7428 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 


7450 

IF  TCONTINUE  NE  "A"  THEN 

7451 

BEGIN 

7452 

TSMFUNC  = TSMFUNC1 

7453 

IF  TSMFUNC  = " " THEN 

7454 

TSMFUNC  = TSMFUNC2  ELSE 

7455 

TSMFUNC  = TSMFUNC  1 1 " " 

| TSMFUNC2 

7456 

IF  TSMFUNC  = " ■ THEN 

7457 

TSMFUNC  = TSMFUNC3  ELSE 

7458 

TSMFUNC  = TSMFUNC  | | " " 

| TSMFUNC3 

7459 

CAL  = "NOW" 

7460 

STORE  MODULES  USING 

7461 

BEGIN 

7462 

DATE  CREATED 

= CAL 

7463 

SYSTEM 

= TSYSTEM 

7464 

MODULE 

= TMODULE 

7465 

SYSTEM  MODULE  NAME 

= TSMNAME 

7466 

SYSTEM  MODULE  FUNCTION  = TSMFUNC 

7467 

FN$STR_EXTRACT ( TSMFUNC I , 

J - 1,  1)  NE  H " AND 
FN$STR_EXTRACT( TSMFUNC I, 

J - 2,  2)  NE  " THEN 

BEGIN 

FLG1  = MN" 

IF  I = 1 THEN  IMSG  = 6 
IF  I = 2 THEN  IMSG  = 7 
END 
END 

1 = 1 + 1 
END 
END 

IF  FLG1  = MY"  THEN 
BEGIN 

IF  TCONTINUE  NE  "Y"  AND 
TCONTINUE  NE  MN"  AND 
TCONTINUE  NE  "A"  THEN 
BEGIN 

FLG1  = MN" 

IMSG  = 8 
END 
END 
END 
END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A\  THE  VERIFIED  DATA  IS  STORED  IN 
DOMAIN  MODULES 
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END  7468 

END  7469 

7470 

7471 

7473 

IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN  7474 

MODULES  IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENTS  WILL  BE  7475 

INCLUDED  IN  THE  SESSION  LOG  FILE  WHICH  IS  OPENED  BY  THE  CALLING  7476 

COMMAND  PROCEDURE.  7477 

7478 

7480 

IF  TCONTINUE  NE  "A"  THEN  7481 

BEGIN  7482 

ICNT  = ICNT  + 1 7483 

JCNT  = JCNT  + 1 7484 

TTMODULE  = TMODULE  7485 

IF  TMODULE  LT  1000  THEN  TTMODULE  = "0M  TTMODULE  7486 

IF  TMODULE  LT  100  THEN  TTMODULE  = "0"  TTMODULE  7487 

IF  TMODULE  LT  10  THEN  TTMODULE  = "0"  TTMODULE  7488 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE  7489 

FOR  MODULES  WITH  SYSTEM_MODULE  = TSYSTEM  | TTMODULE  AND  7490 

SYSTEM_MODULE_NAME  = TSMNAME  749 1 

PRINT  SKIP  3,  7492 

COL  1,  "RECORD  NO.",  SPACE  1,  7493 

ICNT  (-)  USING  119,  SKIP  1,  7494 

COL  1,  "««««==========«",  SPACE  0,  7495 

"=r=====r============" f SPACE  0,  7496 

••========«=««  = = = = = ”,  SPACE  0,  7497 

••  = « = =======  = = « =====»,  SKIP  2,  7498 

COL  3,  "DATE_CREATED  SPACE  1,  7499 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  7500 

COL  3,  "SYSTEM  SPACE  1,  7501 

SYSTEM  (-)  USING  X(4),  SKIP  1,  7502 

COL  3,  "MODULE  :\  SPACE  1,  7503 

MODULE  (-)  USING  9(4),  SKIP  1,  7504 

COL  3,  ”SYSTEM_MODULE_NAME  :",  SPACE  1,  7505 

SYSTEM_MODULE_NAME  (-)  USING  T(50),  SKIP  1,  7506 

COL  3,  "SYSTEM_MODULE  JUNCTION  :",  SPACE  1,  7507 

SYSTEM_MODULE JUNCTION  (-)  USING  T(50),  SKIP  2,  7508 

COL  1,  "=«==========«=====",  SPACE  0,  7509 

«==========«========",  SPACE  0,  7510 

«»=======»»»==*==»,  SPACE  0,  7511 

"===================="  7512 

IF  JCNT  = 3 THEN  JCNT  =0  7513 

: BELL  7514 

END  7515 

7516 

7517 
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IF  TCONTINUE  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED.  THIS 
MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 
PRINT  SKIP  3, 

COL  1,  "========================================",  SPACE  0, 

»========================================",  SKIP  2, 

COL  9 "*******************************"  SKIP  2 

COL  9,  "*****  RECORD  NOT  STORED  *****••’  SKIP  l\ 

COL  9,  11  ******************************* " ^ SKIP  2, 


COL  1,  ========================================",  SPACE  0, 


IF  JCNT  = 3 THEN  JCNT  = 0 
END 


IF  TCONTINUE  EQUALS  NA\  A RESPONSE  IS  REQUESTED  TO  EITHER  CONTINUE 
THE  PROCEDURE  TO  STORE  MODULES  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE  = “A"  THEN 
BEGIN 

PRINT  NEWJAGE 
:CLRSCRN 
TCONTINUE  = "X" 

WHILE  TCONTINUE  NE  "Y"  AND 
TCONTINUE  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  entering  MODULES?", 
SKIP  1 

TCONTINUE  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

END 

END 

END-PROCEDURE 


7519 

7520 

7521 

7522 

7523 

7524 

7525 

7526 

7527 

7528 

7529 

7530 

7531 

7532 

7533 

7534 

7535 

7536 

7537 

7538 

7539 

7540 

7541 

7542 

7543 

7544 

7545 

7546 

7547 

7548 

7549 

7550 

7551 

7552 

7553 

7554 

7555 

7556 

7557 

7558 

7559 

7560 

7561 

7562 

7563 

7564 

7565 
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DEFINE  PROCEDURE  PRNTOFF 

PRINT  "<ESC>"  ||  "["  M "?"  ||  "4"  ||  "i" 

END-PROCEDURE 


7566 

7567 

7568 


F-181 


Datatrieve  Procedure  PRNTON 


DEFINE  PROCEDURE  PRNTON 

7569 

PRINT  "<ESC>"  ||  "["  ||  "?"  ||  "5"  | 

| "i" 

7570 

END-PROCEDURE 

7571 
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DEFINE  PROCEDURE  REF  MODIFY 

j 

i 

7572 

7573 

7574 

7C7C 

1 

1 

/D  / O 

7576 

! VARIABLES  ASSOCIATED  WITH  AUTHORS 

j 

7577 

7578 

7C7Q 

1 

/o  / y 
7580 

DECLARE  TAUTHOR1 

PIC  X( 25) . 

7581 

DECLARE  TAUTHOR2 

PIC  X( 25) . 

7582 

DECLARE  TAUTH0R3 

PIC  X(25) . 

7583 

DECLARE  TAUTH0R4 

PIC  X(25). 

7584 

DECLARE  TTAUTHOR1 

PIC  X(25). 

7585 

DECLARE  TTAUTHOR2 

PIC  X( 25) . 

7586 

DECLARE  TTAUTHOR3 

PIC  X( 25) . 

7587 

DECLARE  TTAUTHOR4 

PIC  X( 25) . 

7588 

DECLARE  TAUTHOR 

j 

PIC  X(25) . 

7589 

7590 

1 

7591 

7CQ7 

7593 

! VARIABLES  ASSOCIATED  WITH  DOCUMENT  TITLE 

7594 

j 

7595 

j 

/O^D 

7597 

DECLARE  TTITLE1 

PIC  X(80). 

7598 

DECLARE  TTITLE2 

PIC  X(80). 

7599 

DECLARE  TTITLE 

PIC  X( 161 ) . 

7600 

DECLARE  XTITLE1 

PIC  X(80) . 

7601 

DECLARE  XTITLE2 

PIC  X(80) . 

7602 

DECLARE  XTITLE 

i 

PIC  X( 161 ) . 

7603 

7604 

j 

7605 

Tgne 

| 

/bub 

7607 

! VARIABLES  ASSOCIATED  WITH  DOCUMENT  DATE 

7608 

I 

7609 

"7  a i n 

i 

/b  1 U 
761  1 

DECLARE  TDOCDATE 

PIC  X(9). 

7612 

DECLARE  TDAY 

PIC  X(2) . 

7613 

DECLARE  TDAY1 

PIC  X(l). 

7614 

DECLARE  TDAY 2 

PIC  X(l). 

7615 

DECLARE  TMONTH 

PIC  X(3). 

7616 

DECLARE  TYEAR 

PIC  X(4) . 

7617 

DECLARE  TYEAR1 

PIC  X(l). 

7618 

DECLARE  TYEAR2 

PIC  X(l). 

7619 

DECLARE  TYEAR3 

PIC  X(l). 

7620 

DECLARE  TYEAR4 

PIC  X(l). 

7621 

DECLARE  NDAY 

PIC  9(2). 

7622 
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DECLARE  NYEAR  PIC  9(4). 

j 

i 

i 

i VARIABLES  ASSOCIATED  WITH  OTHER  INPUT  FIELDS  FOR 
! DOMAIN  REFERENCES: 

! 1.  DOCUMENT  SOURCE 

! 2.  DOCUMENT  NUMBER 

! 3.  CONTRACT  NUMBER 

j 

J 

DECLARE  TSOURCE 

PIC  X( 30) . 

DECLARE  TDOCNO 

PIC  X( 30) . 

DECLARE  TCONTNO 

PIC  X(20) . 

DECLARE  TTDOCNO 

PIC  X(30) . 

DECLARE  TTCONTNO 
1 
j 

PIC  X(20). 

i 

j VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  AUTHORS, 

! DOCUMENT  TITLE 

j 

DOCUMENT_SOURCE,  DOCUMENTJUMBER  AND  CONTRACT_NUMBER 

j 

DECLARE  TEMPI 

PIC  X( 1 12) . 

DECLARE  TEMP2 

j 

j 

PIC  X(80). 

VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 


j 

DECLARE  TC0NTINUE1 

PIC  X(l). 

DECLARE  TC0NTINUE2 

PIC  X(l). 

DECLARE  I MSG 

PIC  9(2). 

DECLARE  FLG1 

PIC  X(l). 

DECLARE  FLG2 

PIC  X(l). 

DECLARE  FLG3 

PIC  X(l). 

DECLARE  FLG4 

j 

I 

PIC  X(l). 

j 

! VARIABLES  USED 

TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

7623 

7624 

7625 

7626 

7627 

7628 

7629 

7630 

7631 

7632 

7633 

7634 

7635 

7636 

7637 

7638 

7639 

7640 

7641 

7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

7673 
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DECLARE  TMSG  PIC  X(80) . 
DECLARE  TMSG1  PIC  X(80). 
DECLARE  TMSG2  PIC  X(80). 
DECLARE  TMSG3  PIC  X(80). 
DECLARE  TMSG4  PIC  X(80). 
DECLARE  TMSG5  PIC  X(80). 
DECLARE  TMSG6  PIC  X(80). 
DECLARE  TMSG7  PIC  X(80). 
DECLARE  TMSG7A  PIC  X(80). 
DECLARE  TMSG8  PIC  X(80). 
DECLARE  TMSG9  PIC  X(80). 
DECLARE  TMSG10  PIC  X(80). 
DECLARE  TMSG 11  PIC  X(80). 
DECLARE  TMSG 12  PIC  X(80). 


VARIABLES  USED  AS  COUNTERS 


DECLARE  ICNT 
DECLARE  JCNT 
DECLARE  KCNT 
DECLARE  I 
DECLARE  J 


VARIABLES  USED  TO  TEMPORARILY  STORE  REFERENCE  DATA  FOR  COMPARISON  OF 
INITIAL  AND  MODIFIED  VALUES 


DECLARE  HDCREATED  USAGE  DATE 

EDIT_STRING  X(23). 
DECLARE  HREFNO  PIC  X(5). 

DECLARE  HAUTHOR1  PIC  X(25). 

DECLARE  HAUTHOR2  PIC  X(25). 

DECLARE  HAUTHOR3  PIC  X(25). 

DECLARE  HAUTHOR4  PIC  X(25). 

DECLARE  HTITLE  PIC  X(161). 

DECLARE  HSOURCE  PIC  X(30). 

DECLARE  HDOCNO  PIC  X(30). 

DECLARE  HDOCDATE  PIC  X(ll). 

DECLARE  HCONTNO  PIC  X(20). 

DECLARE  HDLASTMOD  USAGE  DATE 

EDIT_STRING  X(23). 
PIC  X(20). 


PIC  9(4). 
PIC  9(4). 
PIC  9(4). 
PIC  9(4). 
PIC  9(4). 


7674 

7675 

7676 

7677 

7678 

7679 

7680 

7681 

7682 

7683 

7684 

7685 

7686 

7687 

7688 

7689 

7690 

7691 

7692 

7693 

7694 

7695 

7696 

7697 

7698 

7699 

7700 

7701 

7702 

7703 

7704 

7705 

7706 

7707 

7708 

7709 

7710 
771  1 

7712 

7713 

7714 

7715 

7716 

7717 

7718 

7719 

7720 

7721 

7722 

7723 

7724 


DECLARE  HMODPROC 


I 

I 
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VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 


DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  DOMAINS  REFERENCES  AND  REFERENCESJORM 


SET  ABORT 

READY  REFERENCES  SHARED  WRITE 

READY  REFERENCES JORM  SHARED  READ 


INITIALIZE  THE  MESSAGE  VARIABLES  AND  INITIALIZE  THE  COUNTER  (KCNT) 
USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = "DATA  MUST  BE  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS  OR  CONTINUE  ” | 
"MUST  BE  N" 

TMSG3  = "THE  FIRST  LINE  OF  THE  DOCUMENT  TITLE  SHOULD  NOT  END  WITH  " I 
"A  HYPHENATED  WORD" 

TMSG4  = "ORIGINATING  ORGANIZATION  IS  NOT  VALID  - NOT  IN  TABLE  " I 
"REFERENCE_SOURCE_TABLE" 

TMSG5  = "DOCUMENT  DATE  IS  NOT  VALID  - DAY  MUST  BE  NUMERIC  IN  RANGE  0 TO  " I 
"31  INCLUSIVE" 

TMSG6  = "DOCUMENT  DATE  IS  NOT  VALID  - MONTH  MUST  BE  JAN,  FEB,  MAR,  ETC." 

TMSG7  = "DOCUMENT  DATE  IS  NOT  VALID 

TMSG7A  = "EXCEEDS  THE  NUMBER  OF  DAYS  IN" 

TMSG8  * "DOCUMENT  DATE  NOT  VALID  - YEAR  MUST  BE  NUMERIC  IN  RANGE  1960  " I 
"TO  9999  INCLUSIVE" 

TMSG9  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y OR  N" 

TMSG10  = "NO  RECORDS  HAVE  BEEN  FOUND  WITH  THE  DATA  INDICATED  ABOVE" 

TMSG11  = "ENTER  MODIFICATIONS  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 
TMSG12  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y,  N OR  A" 

KCNT  = 0 

j 


7726 

7727 

7728 

7729 

7730 

7731 

7732 

7733 

7734 

7735 

7736 

7737 

7738 

7739 

7740 

7741 

7742 

7743 

7744 

7745 

7746 

7747 

7748 

7749 

7750 

7751 

7752 

7753 

7754 

7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 

7773 

7774 

7775 


F-186 


Datatrieve  Procedure  REF_MODIFY  (cont.) 


PRIMARY  LOOP  TO  MODIFY  REFERENCES 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  SEARCH  DATA,  TEST  VALUES,  PROMPT  FOR  CORRECTION 
OF  INVALID  INFORMATION  AND  COUNT  THE  RECORDS  WHICH  MATCH  THE 
SPECIFIED  INPUT  FIELDS 

2.  IF  TCONTINUE1  NE  "N\  SECTION  TO  DISPLAY  THE  MATCHING  RECORDS 
ONE  AT  A TIME  FOR  POSSIBLE  MODIFICATION  (THIS  SECTION  IS 
TERMINATED  WHEN  TCONTINUE2  = "N”) 

3.  IF  TCONTINUE1  = "N\  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE1  = HY" 

WHILE  TCONTINUE1  = HYH 
BEGIN 


7776 

7777 

7778 

7779 

7780 

7781 

7782 

7783 

7784 

7785 

7786 

7787 

7788 

7789 

7790 

7791 

7792 

7793 

7794 

7795 


LOOP  TO  DISPLAY  BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


7796 

7797 

7798 

7799 

7800 

7801 

7802 

7803 


FLG1  = MN" 

I MSG  = 1 
WHILE  FLG1  = 


7804 

7805 

7806 


BEGIN 

IF 

I MSG 

- 

1 

THEN 

TMSG 

= 

TMSG1 

7807 

7808 

IF 

I MSG 

= 

2 

THEN 

TMSG 

= 

TMSG2 

7809 

IF 

I MSG 

= 

3 

THEN 

TMSG 

= 

TMSG3 

7810 

IF 

I MSG 

= 

4 

THEN 

TMSG 

= 

TMSG4 

781  1 

IF 

I MSG 

= 

5 

THEN 

TMSG 

= 

TMSG5 

7812 

IF 

I MSG 

s 

6 

THEN 

TMSG 

= 

TMSG6 

7813 

IF 

I MSG 

s 

7 

THEN 

TMSG 

= 

TMSG7  ||  " " 

| TDAY  | " “ | TMSG7A  || 

7814 

IF 

I MSG 

= 

8 

THEN 

TMSG 

- 

" " | TMONTH 
TMSG8 

VIA  MONTH_TABLE 

7815 

7816 

IF 

I MSG 

= 

9 

THEN 

TMSG 

= 

TMSG9 

7817 

IF 

I MSG 

= 

10 

THEN 

TMSG 

= 

TMSG10 

7818 

THIS  SECTION  DISPLAYS  THE  FIND  REFERENCES  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 


7819 

7820 

7821 

7822 

7823 

7824 

7825 

7826 
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7827 

FOR  FIRST  1 REFERENCES_FORM  7828 

BEGIN  7829 

DISPLAY_FORM  REFERENCES  J IN  JORM  IN  7830 

DEVJ206 : [ BCDSSME2 . FORMS ] FORMSL IB . RLB  USING  7331 

BEGIN  7832 

IF  I MSG  NE  1 THEN  7833 

BEGIN  7834 

PUT_FORM  AUTHOR_l  = TAUTHOR1  7835 

PUT_FORM  AUTHOR_2  = TAUTHOR2  7836 

PUT_FORM  AUTHORJ  = TAUTHOR3  7837 

PUT_F0RM  AUTHOR_4  = TAUTHOR4  7838 

PUT_FORM  TITLE_1  = TTITLE1  7839 

PUT_FORM  TITLE_2  = TTITLE2  7840 

PUTJORM  ORGANIZATION  * TSOURCE  784 1 

PUT_FORM  DOCUMENT_NO  = TDOCNO  7842 

PUTJORM  DATE  = TDOCDATE  7843 

PUTJORM  CONTRACTJO  = TCONTNO  7844 

END  7845 

PUTJORM  CONTINUE  = TCONTINUE1  7846 

PUTJORM  MESSAGE  = TMSG  7847 

END  RETRIEVE  USING  7848 

BEGIN  7849 

TAUTHOR1  = GETJORM  AUTHORJ  7850 

TAUTH0R2  = GETJORM  AUTHORJ  785 1 

TAUTH0R3  = GETJORM  AUTHORJ  7852 

TAUTH0R4  = GETJORM  AUTHORJ  7853 

TTITLE1  = GETJORM  TITLEJ  7854 

TTITLE2  = GETJORM  TITLEJ  7855 

TSOURCE  = GETJORM  ORGANIZATION  7856 

TDOCNO  = GETJORM  DOCUMENT_NO  7857 

TDOCDATE  = GETJORM  DATE  7858 

TCONTNO  = GETJORM  CONTRACTJO  7859 

TC0NTINUE1  = GETJORM  CONTINUE  7860 

END  7861 

END  7862 

TDAY  = FN$STRJXTRACT( TDOCDATE,  1,  2)  7863 

TDAY1  = FNJSTR  JXTRACT  ( TDAY , 1,  1)  7864 

TDAY2  = FNJSTR JXTRACT ( TDAY , 2,  1)  7865 

TMONTH  = FN$STRJXTRACT( TDOCDATE,  3,  3)  7866 

TYEAR  = FN$STRJXTRACT( TDOCDATE,  6,  4)  7867 

TYEAR1  = FN$STRJXTRACT(  TYEAR,  1,  1)  7868 

TYEAR2  = FN$STRJXTRACT( TYEAR,  2,  1)  7869 

TYEAR3  = FN$STRJXTRACT( TYEAR,  3,  1)  7870 

TYEAR4  = FN$STRJXTRACT( TYEAR,  4,  1)  787i 


7872 

7873 

7874 

7875 

7876 

7877 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TAUTH0R1,  TAUTH0R2,  TAUTH0R3, 


F-188 


Datatrieve  Procedure  REF_MODIFY  (cont.) 


TAUTH0R4,  TTITLE1,  TTITLE2,  TSOURCE,  TDOCNO  AND  TCONTNO  ARE 
REMOVED 


IF  TCONTINUE1  NE  HN"  THEN 
BEGIN 
I = 1 

WHILE  I LE  9 
BEGIN 

IF  I = 1 THEN  TEMPI  = TAUTHOR1 

IF  I = 2 THEN  TEMPI  = TAUTHOR2 

IF  I = 3 THEN  TEMPI  = TAUTHOR3 

IF  I = 4 THEN  TEMPI  = TAUTHOR4 

IF  I * 5 THEN  TEMPI  = TTITLE1 

IF  I = 6 THEN  TEMPI  = TTITLE2 

IF  I = 7 THEN  TEMPI  = TSOURCE 

IF  I = 8 THEN  TEMPI  = TDOCNO 

IF  I = 9 THEN  TEMPI  = TCONTNO 

IF  TEMPI  NE  " " THEN 
BEGIN 
J = 1 

WHILE  FN$STR_EXTRACT(TEMP1 , J,  1)  = " H 
BEGIN 

J = J + 1 
END 

TEMPI  = FN$STR_EXTRACT( TEMPI,  J,  112  - J + 1) 
END 


IF 

I 

= 

1 

THEN 

TAUTH0R1 

r 

TEMPI 

IF 

I 

= 

2 

THEN 

TAUTH0R2 

= 

TEMPI 

IF 

I 

= 

3 

THEN 

TAUTH0R3 

= 

TEMPI 

IF 

I 

= 

4 

THEN 

TAUTH0R4 

= 

TEMPI 

IF 

I 

= 

5 THEN 

TTITLE1 

= 

TEMPI 

IF 

I 

= 

6 

THEN 

TTITLE2 

= 

TEMPI 

IF 

I 

= 

7 

THEN 

TSOURCE 

= 

TEMPI 

IF 

I 

= 

8 THEN 

TDOCNO 

= 

TEMPI 

IF 

I 

r 

9 

THEN 

TCONTNO 

= 

TEMPI 

I = 

I ' 

+•  ; 

1 

END 

END 


IF  TCONTINUE1  IS  NOT  EQUAL  TO  "N\  TESTS  ARE  PERFORMED  TO 
VERIFY  ANY  DATA  ENTERED  ON  THE  FORM.  AS  APPROPRIATE,  THE 
PROCEDURE  CHECKS  ANY  OR  ALL  OF  THE  FOLLOWING: 

1.  DATA  HAS  BEEN  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS 

2.  TTITLE1  DOES  NOT  END  WITH  A HYPENATED  WORD 

3.  TSOURCE  IS  IN  REFERENCE_SOURCE_TABLE 

4.  TDAY  IS  NUMERIC  IN  RANGE  0 TO  31  INCLUSIVE 


7878 

7879 

7880 

7881 

7882 

7883 

7884 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

7894 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 
791  1 

7912 

7913 

7914 

7915 

7916 

7917 

7918 

7919 

7920 

7921 

7922 

7923 

7924 

7925 

7926 

7927 

7928 
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5.  TMONTH  IS  IN  MONTH_TABLE 

6.  NDAY  IS  LESS  THAN  OR  EQUAL  TO  THE  NUMBER  OF  DAYS  IN 
TMONTH 

7.  TYEAR  IS  NUMERIC  IN  RANGE  1960  TO  9999  INCLUSIVE 

8.  TC0NTINUE1  IS  "Y"  OR  "N" 

9.  AT  LEAST  ONE  RECORD  EXISTS  WITH  THE  DATA  SPECIFIED 


FLG1  = "Y" 

IF  TC0NTINUE1  NE  "N"  THEN 
BEGIN 

IF  TAUTH0R1  = " " AND  TAUTH0R2  = " " AND 

TAUTH0R3  = " " AND  TAUTH0R4  * " " AND 

TTITLE1  = " " AND  TTITLE2  = " " AND 

TDOCDATE  = " " AND  TSOURCE  = " " AND 

TDOCNO  = " " AND  TCONTNO  = " " THEN 

BEGIN 

FLG1  = "N" 

I MSG  = 2 
END 

IF  FLG1  = "Y"  AND 
TTITLE1  NE  " " THEN 
BEGIN 
J = 80 

WHILE  FN$STR_EXTRACT(TTITLE1 , J,  1)  = " " 

BEGIN 

J = J - 1 
END 

IF  FN$STR_EXTRACT ( TT I TLE 1 , J,  1)  = AND 

FN$STR_EXTRACT ( TT I TLE 1 , J - 1,  1)  NE  " “ AND 

FN$STR_EXTRACT ( TT I TLE1 , J - 2,  2)  NE  " THEN 

BEGIN 

FLG1  = "N" 

I MSG  = 3 

END 
END 

IF  FLG1  = "Y"  AND 

TSOURCE  NE  " " THEN 
BEGIN 

IF  TSOURCE  NOT  IN  REFERENCE_SOURCE_TABLE  THEN 
BEGIN 

FLG1  = MN" 

I MSG  = 4 

END 
END 

IF  FLG1  = "Y"  AND 

TDOCDATE  NE  " " THEN 

BEGIN 

FLG2  = "N" 

IF  (TDAY1  = M " OR  TDAY1  IN  NUMBER_TABLE)  AND 


7929 

7930 

7931 

7932 

7933 

7934 

7935 

7936 

7937 

7938 

7939 

7940 

7941 

7942 

7943 

7944 

7945 

7946 

7947 

7948 

7949 

7950 

7951 

7952 

7953 

7954 

7955 
7S56 

7957 

7958 

7959 

7960 

7961 

7962 

7963 

7964 

7965 

7966 

7967 

7968 

7969 

7970 

7971 

7972 

7973 

7974 

7975 

7976 

7977 

7978 

7979 
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(TDAY2  = " *'  OR  TDAY2  IN  NUMBER_TABLE)  THEN  7980 

BEGIN  7981 

NDAY  = TDAY  7982 

IF  NDAY  GE  0 AND  7983 

NDAY  LE  31  THEN  7984 

FLG2  = "Y"  7985 

END  7986 

IF  FLG2  = "Y"  THEN  7987 

BEGIN  7988 

TDAY  = NDAY  7989 

IF  NDAY  LT  10  THEN  TDAY  = ,,0M  | TDAY  7990 

END  7991 

IF  FLG2  = "N"  THEN  7992 

BEGIN  7993 

FLG1  = "N"  7994 

IMSG  = 5 7995 

END  7996 

END  7997 

IF  FLG1  = "Y"  AND  7998 

TDOCDATE  NE  “ " THEN  7999 

BEGIN  sooo 

IF  TMONTH  NOT  IN  MONTH_TABLE  THEN  8001 

BEGIN  8002 

FLG1  = "N"  8003 

IMSG  = 6 8004 

END  8005 

END  8006 

IF  FLG1  = "Y"  AND  8007 

TDOCDATE  NE  " " THEN  8008 

BEGIN  8009 

IF  (TMONTH  = "JAN"  AND  NDAY  GT  31)  OR  so  10 

(TMONTH  = "FEB"  AND  NDAY  GT  29)  OR  son 

(TMONTH  = "MAR"  AND  NDAY  GT  31)  OR  so  12 

(TMONTH  = "APR"  AND  NDAY  GT  30)  OR  so  13 

(TMONTH  = "MAY"  AND  NDAY  GT  31)  OR  soi4 

(TMONTH  = "JUN"  AND  NDAY  GT  30)  OR  so  15 

(TMONTH  = "JUL"  AND  NDAY  GT  31)  OR  soie 

(TMONTH  = "AUG"  AND  NDAY  GT  31)  OR  so  17 

(TMONTH  = "SEP"  AND  NDAY  GT  30)  OR  so  is 

(TMONTH  = "OCT"  AND  NDAY  GT  31)  OR  soi9 

(TMONTH  = "NOV"  AND  NDAY  GT  30)  OR  8020 

(TMONTH  = "DEC"  AND  NDAY  GT  31)  THEN  8021 

BEGIN  8022 

FLG1  = "N"  8023 

IMSG  = 7 8024 

END  8025 

END  8026 

IF  FLG1  = "Y"  AND  8027 

TDOCDATE  NE  " " THEN  8028 

BEGIN  8029 

FLG2  = "N"  8030 
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IF  (TYEAR1  = " " OR  TYEAR1  IN  NUMBER_TABLE)  AND  8031 

(TYEAR2  = " " OR  TYEAR2  IN  NUMBER_TABLE)  AND  8032 

(TYEAR3  = " " OR  TYEAR3  IN  NUMBER_TABLE)  AND  8033 

(TYEAR4  = " " OR  TYEAR4  IN  NUMBER_TABLE)  THEN  8034 

BEGIN  8035 

NYEAR  = TYEAR  8036 

IF  NYEAR  GE  1960  AND  803? 

NYEAR  LE  9999  THEN  8038 

FLG2  = "Y"  8039 

END  8040 

IF  FLG2  = "Y"  THEN  804i 

TDOCDATE  = TDAY  | TMONTH  | TYEAR  8042 

IF  FLG2  = "N"  THEN  8043 

BEGIN  8044 

FLG1  = "N”  8045 

IMSG  = 8 8046 

END  8047 

END  8048 

IF  FLG1  = "Y"  THEN  8049 

BEGIN  8050 

IF  TC0NTINUE1  NE  "Y"  AND  805 1 

TC0NTINUE1  NE  "N"  THEN  8052 

BEGIN  8053 

FLG1  = "N"  8054 

IMSG  = 9 8055 

END  8056 

END  8057 

IF  FLG1  = "YM  THEN  sose 

BEGIN  8059 

TTITLE  = TTITLE1  soeo 

IF  TTITLE  = " " THEN  soei 

TTITLE  = TTITLE2  ELSE  8062 

TTITLE  = TTITLE  ||  " " | TTITLE2  8063 

END  8064 

IF  FLG1  = "Y"  THEN  8065 

BEGIN  8066 

FLG2  = "N"  8067 

IF  TTITLE  NE  " " AND  TSOURCE  NE  " - THEN  soes 

BEGIN  8069 

FLG2  = "Y"  8070 

JCNT  = 0 8071 

FOR  REFERENCES  WITH  8072 

DOCUMENTJITLE  = TTITLE  AND  8073 

DOCUMENT_SOURCE  = TSOURCE  8074 

BEGIN  8075 

FLG3  = "Y"  8076 

IF  TAUTH0R1  NE  " " AND  8077 

TAUTH0R1  NE  AUTH0R1  THEN  FLG3  = "N"  8078 

IF  TAUTH0R2  NE  " " AND  8079 

TAUTH0R2  NE  AUTH0R2  THEN  FLG3  = "N"  8080 

IF  TAUTH0R3  NE  " " AND  sosi 
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IF 

IF 


IF 


TAUTH0R3  NE  AUTH0R3  THEN  FLG3  = "N" 
TAUTH0R4  NE  " " AND 
TAUTHOR4  NE  AUTH0R4  THEN  FLG3  = "N" 
TDOCNO  NE  " " AND 

TDOCNO  NE  DOCUMENT_NUMBER  THEN 
FLG3  = "N" 


TDOCDATE  NE  " " AND 

TDAY  | 

TMONTH  | 

TYEAR  NE  DOCUMENT  DATE  THEN 


FLG3  = HN" 

IF  TCONTNO  NE  " " AND 

TCONTNO  NE  CONTRACTNUMBER  THEN 
FLG3  = "N" 

IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 1 
END 
END 

IF  FLG2  = "N"  THEN 
BEGIN 

JCNT  = 0 
FOR  REFERENCES 
BEGIN 

FLG3  = "Y" 

IF  TAUTHOR1  NE  " " AND 

TAUTHOR1  NE  AUTHOR1  THEN  FLG3  = "N" 
IF  TAUTH0R2  NE  " " AND 

TAUTHOR2  NE  AUTH0R2  THEN  FLG3  = "N" 
IF  TAUTHOR3  NE  " " AND 

TAUTHOR3  NE  AUTH0R3  THEN  FLG3  = "N" 
IF  TAUTHOR4  NE  " " AND 

TAUTHOR4  NE  AUTH0R4  THEN  FLG3  = "N" 
IF  TTITLE  NE  " " AND 

TTITLE  NE  DOCUMENT_TITLE  THEN 
FLG3  = "N" 

IF  TSOURCE  NE  '*  " AND 

TSOURCE  NE  DOCUMENT_SOURCE  THEN 
FLG3  = "N" 


IF 


IF 


TDOCNO  NE  " " AND 
TDOCNO  NE  DOCUMENT_NUMBER  THEN 
FLG3  = "N" 


TDOCDATE  NE  " " 
TDAY  I ,,-M 


AND 


TMONTH 
TYEAR 
FLG3  = "N" 


II  _ ll 

NE  DOCUMENT  DATE  THEN 


IF  TCONTNO  NE  M N AND 

TCONTNO  NE  CONTRACTNUMBER  THEN 
FLG3  = "N" 


IF  FLG3  = "V  THEN  JCNT  = JCNT  + 1 


END 


8082 

8083 

8084 

8085 

8086 

8087 

8088 

8089 

8090 

8091 

8092 

8093 

8094 

8095 

8096 

8097 

8098 

8099 

8100 
8101 
8102 

8103 

8104 

8105 

8106 

8107 

8108 
8109 
81  10 
81  1 1 
81  12 
81  13 
81  14 
81  15 
8116 
8117 
81  18 
81  19 
8120 
8121 
8122 

8123 

8124 

8125 

8126 

8127 

8128 

8129 

8130 

8131 

8132 


END 
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IF  JCNT  = 0 THEN 
BEGIN 

FLG1  = "N" 
I MSG  = 10 
END 
END 
END 
END 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N",  THIS  SECTION  DISPLAYS  THE 
INDICATED  RECORDS  ONE  AT  A TIME  AND  ALLOWS  CORRECTIONS  TO  BE  MADE 
TO  ANY  OR  ALL  OF  THE  RECORDS.  THE  FIELDS  DOCUMENT_TITLE, 
DOCUMENT_SOURCE  AND  DOCUMENT_DATE  CANNOT  BE  CHANGED  SINCE  THESE 
THREE  FIELDS  UNIQUELY  DEFINE  THE  REFERENCE. 


IF  TC0NTINUE1  NE  "N"  THEN 
BEGIN 

TC0NTINUE2  = "Y" 

FLG2  = "N" 

IF  TTITLE  NE  " " AND  TSOURCE  NE  " " THEN 
BEGIN 

FLG2  = "Y" 

ICNT  = 0 

FOR  REFERENCES  WITH 

DOCUMENTS  I TLE  = TTITLE  AND 
DOCUMENT_SOURCE  = TSOURCE  SORTED  BY 
REFERENCE_NUMBER 
BEGIN 

IF  TC0NTINUE2  = "Y"  THEN 
BEGIN 

FLG3  = "Y" 

IF  TAUTH0R1  NE  " " AND 

TAUTH0R1  NE  AUTH0R1  THEN  FLG3  = "N" 
IF  TAUTH0R2  NE  " " AND 

TAUTH0R2  NE  AUTH0R2  THEN  FLG3  « "N" 
IF  TAUTH0R3  NE  " " AND 

TAUTH0R3  NE  AUTH0R3  THEN  FLG3  = "N" 
IF  TAUTH0R4  NE  " " AND 

TAUTH0R4  NE  AUTH0R4  THEN  FLG3  = "N" 
IF  TDOCNO  NE  " " AND 

TDOCNO  NE  DOCUMENTJUMBER  THEN 
FLG3  = "N" 

IF  TDOCDATE  NE  " " AND 

TDAY  I 
TMONTH  j 

TYEAR  NE  DOCUMENT  DATE  THEN 


8133 

8134 

8135 

8136 

8137 

8138 

8139 

8140 

8141 

8142 

8143 

8144 

8145 

8146 

8147 

8148 

8149 

8150 

8151 

8152 

8153 

8154 

8155 

8156 

8157 

8158 

8159 

8160 
8161 
8162 

8163 

8164 

8165 

8166 

8167 

8168 

8169 

8170 

8171 

8172 

8173 

8174 

8175 

8176 

8177 

8178 

8179 

8180 
8181 
8182 
8183 
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FLG3  = HN" 

IF  TCONTNO  NE  " " AND 

TCONTNO  NE  CONTRACT_NUMBER  THEN 
FLG3  = MN" 

IF  FLG3  = "Y"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
: REF  MODIFY  1 


END 

END 


END 


END 

IF  FLG2  = “N"  THEN 
BEGIN 

ICNT  = 0 

FOR  REFERENCES  SORTED  BY  REFERENCE_NUMBER 
BEGIN 

IF  TCONTINUE2  = “Y"  THEN 
BEGIN 

FLG3  = "Y" 

IF  TAUTHOR1  NE  " " AND 

TAUTHOR1  NE  AUTHOR1  THEN  FLG3  = “N" 
IF  TAUTHOR2  NE  " " AND 

TAUTH0R2  NE  AUTHOR2  THEN  FLG3  = "N" 
IF  TAUTHOR3  NE  " “ AND 

TAUTHOR3  NE  AUTHOR3  THEN  FLG3  = "N" 
IF  TAUTHOR4  NE  " " AND 

TAUTHOR4  NE  AUTHOR4  THEN  FLG3  = "N" 
IF  TTITLE  NE  " " AND 

TTITLE  NE  DOCUMENT_TITLE  THEN 
FLG3  = "N" 

IF  TSOURCE  NE  " " AND 

TSOURCE  NE  DOCUMENT_SOURCE  THEN 
FLG3  = "NH 


IF 


IF 


TDOCNO  NE  " " AND 
TDOCNO  NE  DOCUMENT_NUMBER  THEN 
FLG3  = "N" 

TDOCDATE  NE  " " AND 


TDAY 

TMONTH 

TYEAR 


if  _ II 
»i  If 


I 


NE  DOCUMENT  DATE  THEN 


FLG3  = "NM 

IF  TCONTNO  NE  “ AND 

TCONTNO  NE  CONTRACTJUMBER  THEN 
FLG3  = "N" 

IF  FLG3  = "Y"  THEN 
BEGIN 

ICNT  = ICNT  + 1 
:REF_MODIFY  1 
END 


8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 

8194 

8195 

8196 

8197 

8198 

8199 

8200 
8201 
8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 
821  1 
8212 

8213 

8214 

8215 

8216 

8217 

8218 

8219 

8220 
8221 
8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 


END 
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END 

END 

END 


IF  TC0NTINUE1  IS  EQUAL  TO  "N\  A RESPONSE  IS  REQUESTED  TO  EITHER 
CONTINUE  THE  PROCEDURE  TO  MODIFY  REFERENCES  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE1  = "N"  THEN 
BEGIN 

PRINT  NEW_PAGE 
:CLRSCRN 

TCONTINUE1  = "X" 

WHILE  TCONTINUE1  NE  "Y"  AND 
TCONTINUE1  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  modifying",  SKIP  1, 
"REFERENCES?",  SKIP  1 
TCONTINUE1  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

END 

END 

END-PROCEDURE 


8235 

8236 

8237 

8238 

8239 

8240 

8241 

8242 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 

8258 

8259 

8260 
8261 
8262 
8263 
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DEFINE  PROCEDURE  REF_M0DIFY_1  8264 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 


TTAUTH0R1  = AUTH0R1  8276 
TTAUTH0R2  = AUTH0R2  8277 
TTAUTH0R3  = AUTH0R3  8278 
TTAUTH0R4  = AUTH0R4  8279 
TTDOCNO  = DOCUMENT_NUMBER  8280 
TTCONTNO  = CONTRACT_NUMBER  828 i 


8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 


XTITLE  = DOCUMENTJITLE  829 1 

I = 1 8292 

WHILE  I LE  3 8293 

BEGIN  8294 

IF  XTITLE  NE  " H THEN  8295 

BEGIN  8296 

J = 1 8297 

WHILE  FN$STR_EXTRACT( XTITLE,  J,  1)  = " " 8298 

BEGIN  8299 

J = J + 1 8300 

END  830i 

XTITLE  = FN$STR_EXTRACT( XTITLE,  J,  242  - J + 1)  8302 

END  8303 

FLG4  = "N"  8304 

IF  FN$STR_EXTRACT(XTITLE,  80,  1)  = " " OR  8305 

FN$STR_EXTRACT(XTITLE,  81,  1)  = " " THEN  8306 

BEGIN  ~ 8307 

TEMP2  = FN$STR_EXTRACT (XTITLE,  1,  80)  8308 

XTITLE  = FN$STR_EXTRACT (XTITLE,  81,  162)  8309 

FLG4  = "Y"  83io 

END  83ii 

IF  FLG4  = "N"  THEN  83 12 

BEGIN  8313 

J = 80  8314 


THIS  SECTION  SPLITS  THE  FIELD  DOCUMENTJITLE  INTO  VARIABLES  WHICH  ARE 
80  CHARACTERS  LONG  FOR  DISPLAY  ON  THE  TDMS  FORM 


THE  FIELDS  OF  THE  INCOMING  REFERENCE  RECORD  ARE  ASSIGNED  TO  VARIABLES 
FOR  DISPLAY  AND  MODIFICATION.  THE  FIELDS  DOCUMENTJITLE, 
DOCUMENT_SOURCE  AND  DOCUMENT_DATE  ARE  NOT  ASSIGNED  TO  VARIABLES  SINCE 
THESE  FIELDS  CANNOT  BE  MODIFIED. 


F-197 


Datatrieve  Procedure  REF_M0DIFY_1  (cont.) 


WHILE  FNSSTR  EXTRACT(XTITLE,  J,  1)  NE  " ” AND 
J GT  1 
BEGIN 

J = J - 1 
END 
CHOICE 

J = 1 THEN  TEMP2  = FNSSTR  JXTRACT(XTITLE,  1,  80) 

J GT  1 THEN  TEMP2  = FNSSTR  JXTRACT(XTITLE,  1,  J - 1 + 1) 

ENDJHOICE 
CHOICE 

J = 1 THEN  XTITLE  = FNSSTR  EXTRACT(XTITLE,  81,  162) 

J GT  1 THEN  XTITLE  = FN$STR_EXTRACT(XTITLE,  J + 1, 

242  - (J  + 1)  + 1) 

ENDJHOICE 

END 

IF  I = 1 THEN  XTITLE1  = TEMP2 
IF  I * 2 THEN  XTITLE2  = TEMP2 
1 = 1 + 1 
END 


LOOP  TO  DISPLAY  A REFERENCE  RECORD  USING  A TDMS  FORM,  RETRIEVE  DATA 
FROM  THE  FORM,  TEST  THE  INCOMING  INFORMATION  AND  REQUEST  CORRECTION  OF 
INVALID  DATA 


FLG4  = "N" 

I MSG  = 11 
WHILE  FLG4  = "N" 

BEGIN 

IF  I MSG  = 11  THEN  TMSG  = TMSG11 
IF  I MSG  = 12  THEN  TMSG  = TMSG 12 


THIS  SECTION  DISPLAYS  THE  MODIFY  REFERENCES  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 


DISPLAY  JORM  REFERENCESJODJORM  IN 

DEVS206: [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING 
BEGIN 

PUT_FORM  RECORD JUMBER  = ICNT 
PUTJORM  TOTAL  JECORDS  = JCNT 
PUT  JORM  AUTHOR _1  = TTAUTHOR1 

PUTJORM  AUTH0R_2  = TTAUTHOR2 


8315 

8316 

8317 

8318 

8319 

8320 

8321 

8322 

8323 

8324 

8325 

8326 

8327 

8328 

8329 

8330 

8331 

8332 

8333 

8334 

8335 

8336 

8337 

8338 

8339 

8340 

8341 

8342 

8343 

8344 

8345 

8346 

8347 

8348 

8349 

8350 

8351 

8352 

8353 

8354 

8355 

8356 

8357 

8358 

8359 

8360 

8361 

8362 

8363 

8364 

8365 
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i 


PUTFORM  AUTH0R3  = TTAUTH0R3  8366 

PUT_F0RM  AUTH0R_4  = TTAUTH0R4  8367 

PUTFORM  TITLE_1  = XTITLE1  8368 

PUTJORM  TITLE"2  = XTITLE2  8369 

PUTjORM  ORGANIZATION  = DOCUMENT_SOURCE  8370 

PUT_FORM  DOCUMENT_NO  = TTDOCNO  8371 

PUTFORM  DATE  = DOCUMENT_DATE  8372 

PUT_FORM  CONTRACT_NO  = TTCONTNO  8373 

IF  I MSG  = 11  THEN  8374 

PUT_FORM  CONTINUE  = 11 Y"  8375 

IF  I MSG  NE  11  THEN  8376 

PUT_FORM  CONTINUE  = TC0NTINUE2  8377 

PUT_FORM  MESSAGE  = TMSG  8378 

END  RETRIEVE  USING  8379 

BEGIN  8380 

TTAUTH0R1  = GET_FORM  AUTH0R_1  838 1 

TTAUTH0R2  = GET_FORM  AUTH0R_2  8382 

TTAUTH0R3  = GETJORM  AUTH0R_3  8383 

TTAUTH0R4  = GET_F0RM  AUTH0R_4  8384 

TTDOCNO  = GET_FORM  DOCUMENT_NO  8385 

TTCONTNO  = GET_FORM  CONTRACT_NO  8386 

TC0NTINUE2  = GETJORM  CONTINUE  8387 

END  8388 


8389 

8390 

8391 

8392 

8393 

8394 

8395 

8396 

8397 

8398 


IF  TC0NTINUE2  NE  "A"  THEN  8399 

BEGIN  8400 

1=1  8401 

WHILE  I LE  6 8402 

BEGIN  8403 

IF  I = 1 THEN  TEMPI  = TTAUTH0R1  8404 

IF  I = 2 THEN  TEMPI  = TTAUTH0R2  8405 

IF  I = 3 THEN  TEMPI  = TTAUTH0R3  8406 

IF  I = 4 THEN  TEMPI  = TTAUTH0R4  8407 

IF  I = 5 THEN  TEMPI  = TTDOCNO  8408 

IF  I = 6 THEN  TEMPI  = TTCONTNO  8409 

IF  TEMPI  NE  " " THEN  84 io 

BEGIN  84ii 

J = 1 8412 

WHILE  FN$STR_EXTRACT ( TEMPI , J,  1)  = " " 8413 

BEGIN  8414 

J = J + 1 8415 

END  8416 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH  WERE 
INADVERTENTLY  ENTERED  IN  TTAUTH0R1,  TTAUTH0R2,  TTAUTH0R3, 
TTAUTH0R4,  TTDOCNO  AND  TTCONTNO  ARE  REMOVED 
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TEMPI  = FN$STR_EXTRACT( TEMPI,  J,  112  - J + l)  8417 

END  8418 

IF  I = 1 THEN  TTAUTHOR1  = TEMPI  8419 

IF  I = 2 THEN  TTAUTHOR2  = TEMPI  8420 

IF  I = 3 THEN  TTAUTH0R3  = TEMPI  842 i 

IF  I = 4 THEN  TTAUTH0R4  = TEMPI  8422 

IF  I = 5 THEN  TTDOCNO  = TEMPI  8423 

IF  I = 6 THEN  TTCONTNO  = TEMPI  8424 

1 = 1 + 1 8425 

END  8426 

END  8427 

! 8428 

! 8429 

! 8431 

! IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO  8432 

! VERIFY  THE  FOLLOWING:  8433 

! 1.  TC0NTINUE2  IS  "Y",  "N"  OR  "A"  8434 

! 8435 

! 8437 

FLG4  = "Y"  8438 

IF  TC0NTINUE2  NE  "A"  THEN  8439 

BEGIN  8440 

IF  TC0NTINUE2  NE  "Y"  AND  844i 

TC0NTINUE2  NE  "N"  AND  8442 

TC0NTINUE2  NE  "A"  THEN  8443 

BEGIN  8444 

FLG4  = "N"  8445 

I MSG  = 12  8446 

END  8447 

END  8448 

END  8449 

! 8450 

! 8451 

! 8453 

! IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE  8454 

! VARIABLES  TTAUTH0R1,  TTAUTH0R2,  TTAUTH0R3  AND  TTAUTH0R4  SO  THAT  THE  8455 

! FIRST  VALUE  WHICH  IS  NOT  BLANK  IS  TTAUTH0R1,  THE  SECOND  VALUE  WHICH  IS  8456 

! NOT  BLANK  IS  TTAUTH0R2,  ETC.  8457 

! 8458 

! 8460 

IF  TC0NTINUE2  NE  "A"  THEN  846 1 

BEGIN  8462 

TEMPI  = TTAUTH0R1  | "#$#"  TTAUTH0R2  "#$#"  I 8463 

TTAUTH0R3  | "#$#"  TTAUTH0R4  "#$#"  8464 

I = 1 8465 

WHILE  I LE  4 8466 

BEGIN  8467 
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J = 1 8468 

WHILE  J = 1 8469 

BEGIN  8470 

J = FN$STR_LOC( TEMPI,  "#$#")  847 i 

IF  J = 0 THEN  TAUTHOR  = " " 8472 

IF  J « 1 THEN  TEMPI  = FN$STR_EXTRACT( TEMPI,  4,  109)  8473 

IF  J GT  1 THEN  8474 

BEGIN  8475 

TAUTHOR  = FN$STR_EXTRACT( TEMPI,  1,  J - 1)  8476 

TEMPI  = FN$STR_EXTRACT( TEMPI,  J,  112  - J + 1)  8477 

END  8478 

END  8479 

IF  I = 1 THEN  TTAUTH0R1  = TAUTHOR  8480 

IF  I = 2 THEN  TTAUTH0R2  = TAUTHOR  8481 

IF  I = 3 THEN  TTAUTH0R3  = TAUTHOR  8482 

IF  I = 4 THEN  TTAUTH0R4  = TAUTHOR  8483 

1=1+1  8484 

END  8485 

END  8486 


8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

IF  TC0NTINUE2  NE  "A"  AND  8498 


(AUTH0R1 

NE  TTAUTH0R1  OR 

8499 

AUTH0R2 

NE  TTAUTH0R2  OR 

8500 

AUTH0R3 

NE  TTAUTH0R3  OR 

8501 

AUTH0R4 

NE  TTAUTH0R4  OR 

8502 

DOCUMENT  NUMBER  NE  TTDOCNO  OR 

8503 

CONTRACT  NUMBER  NE  TTCONTNO)  THEN 

8504 

BEGIN 

8505 

8506 

8507 

8508 

8509 

8510 
851  1 

8512 

8513 


8514 

KCNT  = KCNT  +1  85 i 5 

PRINT  NEW_PAGE,  SKIP  3,  8516 

COL  1,  "RECORD  NO.  ",  SPACE  0,  85 i 7 

KCNT  (-)  USING  9(4),  SKIP  1,  8518 


THIS  SECTION  PRINTS  THE  INITIAL  RECORD  DATA  TO  THE  SESSION  LOG 
FILE 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  "A"  AND  NEW  DATA  HAS  BEEN  ENTERED  IN  AT 
LEAST  ONE  OF  THE  RECORD  FIELDS,  THIS  SECTION  PRINTS  THE  INITIAL  RECORD 
DATA  TO  THE  LOG  FILE,  MODIFIES  THE  RECORD  AND  PRINTS  THE  MODIFIED 
RECORD  DATA  TO  THE  LOG  FILE  (HIGHLIGHTING  THE  CHANGED  FIELDS) 
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8519 

8520 

8521 

8522 

8523 

8524 

8525 

8526 

8527 

8528 

8529 

8530 

8531 

8532 

8533 

8534 

8535 

8536 

8537 

8538 

8539 

8540 

8541 

8542 

8543 

8544 

8545 

8546 

8547 

8548 

8549 

8550 

8551 

8552 

8553 

8554 

8555 

8556 

8557 


HDCREATED  = DATE_CREATED  8558 
HREFNO  = REFERENCE_NUMBER  8559 
HAUTH0R1  = AUTH0R1  8560 
HAUTH0R2  = AUTH0R2  856 i 
HAUTH0R3  = AUTH0R3  8562 
HAUTH0R4  = AUTH0R4  8563 
HTITLE  = DOCUMENT  TITLE  8564 
HSOURCE  = DOCUMENTlSOURCE  8565 
HDOCNO  = DOCUMENTJUMBER  8566 
HDOCDATE  = DOCUMENT_DATE  8567 
HCONTNO  = CONTRACTJUMBER  8568 
HDLASTMOD  = DATE_LAST_MOD I F I ED  8569 


THIS  SECTION  STORES  THE  INITIAL  RECORD  VALUES  FOR  USE  IN 
HIGHLIGHTING  THE  FIELDS  WHICH  HAVE  BEEN  MODIFIED 


••========================================•,  SPACE  0, 

"========================================»,  SKIP  1, 

"========================================",  SPACE  0, 

.,=====================================s==„  SKIp  2 

COL  6,  "DATE_CREATED  SPACE  1, 

DATE_CREATED  (-)  USING  X(23),  SKIP  1, 

COL  6,  "REFERENCE_NUMBER  SPACE  1, 

REFERENCE_NUMBER  (-)  USING  X(5),  SKIP  1, 

COL  6,  "AUTH0R1  :\  SPACE  1, 

AUTH0R1  (-)  USING  X(25),  SKIP  1, 

COL  6,  "AUTH0R2  SPACE  1, 

AUTH0R2  (-)  USING  X(25),  SKIP  1, 

COL  6,  "AUTH0R3  SPACE  1, 

AUTH0R3  (-)  USING  X(25),  SKIP  1, 

COL  6,  "AUTH0R4  SPACE  1, 

AUTH0R4  (-)  USING  X(25),  SKIP  1, 

COL  6,  "DOCUMENTJITLE  SPACE  1, 

DOCUMENT_TITLE  (-)  USING  T(52),  SKIP  1, 

COL  6,  "DOCUMENT_SOURCE  :\  SPACE  1, 

DOCUMENT_SOURCE  (-)  USING  X(30),  SKIP  1, 

COL  6,  "DOCUMENT_NUMBER  SPACE  1, 

DOCUMENT_NUMBER  (-)  USING  X(30),  SKIP  1, 

COL  6,  "DOCUMENT_DATE  SPACE  1, 

DOCUMENT_DATE  (-)  USING  X(ll),  SKIP  1, 

COL  6,  "CONTRACT_NUMBER  SPACE  1, 

CONTRACTJUMBER  (-)  USING  X(20),  SKIP  1, 

COL  6,  " D ATE_L AST_MOD I F I ED  SPACE  1, 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 

COL  6,  "MOD I F Y I NG_PROCEDURE  :\  SPACE  1, 

MODIFYING_PROCEDURE  (-)  USING  X(20) 
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HMODPROC  = MODIFYING_PROCEDURE  8570 

8571 

8572 

8573 

8574 

8575 

8576 

8577 

8578 

8579 

8580 

8581 

8582 

8583 

8584 

8585 

8586 

8587 

8588 

8589 

8590 

8591 

8592 

8593 

8594 

8595 

8596 

8597 

8598 

8599 

8600 


PRINT  SKIP  1,  8601 

COL  1,  "========================================",  SPACE  0,  8602 

.,aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa«  SKIp  2>  8603 

COL  1,  CHOICE  8604 

DATE_CREATED  = HDCREATED  THEN  " " seos 

ELSE  "***"  8606 

END_CHOICE,  8607 

SPACE  2,  "DATE_CREATED  SPACE  1,  8608 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  8609 

COL  1,  CHOICE  86io 

REFERENCE  NUMBER  = HREFNO  THEN  " " sen 

ELSE  "***"  8612 

END_CHOICE,  8613 

SPACE  2,  "REFERENCEJUMBER  SPACE  1,  8614 

REFERENCEJUMBER  (-)  USING  X(5),  SKIP  1,  8615 

COL  1,  CHOICE  8616 

AUTH0R1  = HAUTH0R1  THEN  " " 86 i 7 

ELSE  "***"  8618 

END_CHOICE,  8619 

SPACE  2,  "AUTH0R1  SPACE  1,  8620 


THIS  SECTION  MODIFIES  THE  REFERENCE  RECORD  USING  THE  VERIFIED 
DATA  ENTERED  ON  THE  MODIFY  REFERENCES  FORM 


CAL  = "NOW" 

MODIFY  USING 
BEGIN 
AUTH0R1 
AUTH0R2 
AUTH0R3 
AUTH0R4 

DOCUMENT_NUMBER 
CONTRACT_NUMBER 
DATE_LAST_MOD I F I ED 
MODIFYING_PROCEDURE 
END 


TTAUTH0R1 

TTAUTH0R2 

TTAUTH0R3 

TTAUTH0R4 

TTDOCNO 

TTCONTNO 

CAL 

"REF  MODIFY" 


THIS  SECTION  PRINTS  THE  MODIFIED  RECORD  DATA  TO  THE  SESSION  LOG 
FILE  AND  HIGHLIGHTS  THE  FIELDS  WHICH  CONTAIN  NEW  INFORMATION 
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AUTH0R1  (-)  USING  X(25),  SKIP  1,  8621 

COL  1,  CHOICE  8622 

AUTH0R2  = HAUTHOR2  THEN  " " 8623 

ELSE  "***"  8624 

END_CHOICE,  8625 

SPACE  2,  "AUTHOR2  SPACE  1,  8626 

AUTHOR2  (-)  USING  X(25),  SKIP  1,  8627 

COL  1,  CHOICE  8628 

AUTHOR3  = HAUTHOR3  THEN  " " 8629 

ELSE  "***"  8630 

END_CHOICE,  8631 

SPACE  2,  "AUTH0R3  SPACE  1,  8632 

AUTH0R3  (-)  USING  X(25),  SKIP  1,  8633 

COL  1,  CHOICE  8634 

AUTH0R4  = HAUTH0R4  THEN  " " 8635 

ELSE  "***"  8636 

END_CHOICE,  8637 

SPACE  2,  "AUTH0R4  SPACE  1,  8638 

AUTH0R4  (-)  USING  X(25),  SKIP  1,  8639 

COL  1,  CHOICE  8640 

DOCUMENT_TITLE  = HTITLE  THEN  " " 8641 

ELSE  "***"  8642 

END_CHOICE,  8643 

SPACE  2,  "DOCUMENT_TITLE  SPACE  1,  8644 

DOCUMENT_TITLE  (-)  USING  T(52),  SKIP  1,  8645 

COL  1,  CHOICE  8646 

DOCUMENT_SOURCE  = HSOURCE  THEN  " " 8647 

ELSE  "***"  8648 

END_CHOICE,  8649 

SPACE  2,  "DOCUMENT_SOURCE  :\  SPACE  1,  aeso 

DOCUMENT  SOURCE  (-)  USING  X(30),  SKIP  1,  8651 

COL  1,  CHOICE  8652 

DOCUMENT_NUMBER  = HDOCNO  THEN  " " 8653 

ELSE  "***"  8654 

END_CHOICE,  8655 

SPACE  2,  "DOCUMENT_NUMBER  SPACE  1,  8656 

DOCUMENT_NUMBER  (-)  USING  X(30),  SKIP  1,  8657 

COL  1,  CHOICE  8658 

DOCUMENT_DATE  = HDOCDATE  THEN  " " 8659 

ELSE  "***"  8660 

END_CHOICE,  8661 

SPACE  2,  "DOCUMENTJATE  :\  SPACE  1,  8662 

DOCUMENT_DATE  (-)  USING  X(ll),  SKIP  1,  8663 

COL  1,  CHOICE  8664 

CONTRACT_NUMBER  = HCONTNO  THEN  " " 8665 

ELSE  "***"  8666 

END_CHOICE,  8667 

SPACE  2,  "CONTRACT_NUMBER  SPACE  1,  sees 

CONTRACTJUMBER  (-)  USING  T(52),  SKIP  1,  8669 

COL  1,  CHOICE  8670 

DATE_LAST_MOD I F I ED  = HDLASTMOD  THEN  M " 867 1 
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ELSE  "***" 

END_CHOICE, 

SPACE  2,  "DATE_LAST_MOD  I F I ED  SPACE  1, 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1, 

COL  1,  CHOICE 

MODIFYING_PROCEDURE  = HMODPROC  THEN  ■ " 

ELSE  "***" 

END_CHOICE, 

SPACE  2,  "MODIFYING_PROCEDURE  SPACE  1, 

MODIFYING  PROCEDURE  (-)  USING  X(20),  SKIP  2, 
COL  1,  ========================================",  SPACE  0, 

========================================",  SKIP  1, 

========================================,  SPACE  0, 


:BELL 

END 


IF  TC0NTINUE2  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  MODIFIED.  THIS 
MESSAGE  WILL  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TC0NTINUE2  = "A"  THEN 
BEGIN 

PRINT  NEW  PAGE,  SKIP  3, 

COL  1,  "========================================",  SPACE  0, 

"====== =============================",  SKIP  10, 

COL  9,  "*****  RECORD  NOT  MODIFIED  *****•■’  SKIP  2, 

COL  9 11  ********************************* 11  SKIP  10, 

COL  1,  ========================================',  SPACE  0, 


END 

END-PROCEDURE 


8672 

8673 

8674 

8675 

8676 

8677 

8678 

8679 

8680 
8681 
8682 

8683 

8684 

8685 

8686 

8687 

8688 

8689 

8690 

8691 

8692 

8693 

8694 

8695 

8696 

8697 

8698 

8699 

8700 

8701 

8702 

8703 

8704 

8705 

8706 

8707 

8708 

8709 


I 

I 


Datatrieve  Procedure  REF  STORE 
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VARIABLES  ASSOCIATED  WITH  AUTHORS 


I 

I 


DECLARE  TAUTHOR1  PIC  X(25). 
DECLARE  TAUTHOR2  PIC  X(25). 
DECLARE  TAUTHOR3  PIC  X(25). 
DECLARE  TAUTHOR4  PIC  X(25). 
DECLARE  TTAUTHOR  PIC  X(25). 


VARIABLES  ASSOCIATED  WITH  DOCUMENT_TITLE 


I 

I 


DECLARE  TTITLE1  PIC  X(80). 
DECLARE  TTITLE2  PIC  X(80). 
DECLARE  TTITLE  PIC  X(161). 


VARIABLES  ASSOCIATED  WITH  DOCUMENT  DATE 


I 

I 


DECLARE  TDOCDATE  PIC  X(9). 
DECLARE  TDAY  PIC  X(2). 
DECLARE  NDAY  PIC  9(2). 
DECLARE  TMONTH  PIC  X(3). 
DECLARE  TYEAR  PIC  X(4). 
DECLARE  NYEAR  PIC  9(4). 


I 

I 


VARIABLES  ASSOCIATED  WITH  OTHER  INPUT  FIELDS  FOR 
DOMAIN  REFERENCES: 

1.  SEQUENCE  JUMBER 

2.  DOCUMENT_SOURCE 

3.  DOCUMENT_NUMBER 

4.  CONTRACT  JUMBER 


8710 

8711 

8712 

8713 

8714 

8715 

8716 

8717 

8718 

8719 

8720 

8721 

8722 

8723 

8724 

8725 

8726 

8727 

8728 

8729 

8730 

8731 

8732 

8733 

8734 

8735 

8736 

8737 

8738 

8739 

8740 

8741 

8742 

8743 

8744 

8745 

8746 

8747 

8748 

8749 

8750 

8751 

8752 

8753 

8754 

8755 

8756 

8757 

8758 

8759 

8760 
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• 8761 

DECLARE  TSEQNO  PIC  9(3).  8762 

DECLARE  TSOURCE  PIC  X(30).  8763 

DECLARE  TDOCNO  PIC  X(30).  8764 

DECLARE  TCONTNO  PIC  X(20).  8765 

J 8766 

! 8767 

! | 8769 

! VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  AUTHORS,  j 8770 

! DOCUMENT_TITLE,  DOCUMENT_SOURCE,  DOCUMENT_NUMBER  AND  CONTRACT_NUMBER  j 877 1 

I j 8772 

1 8774 

DECLARE  TEMP  PIC  X(112).  8775 

! 8776 

| 8777 

! 8779 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS  8780 

! 8781 

I 8783 

DECLARE  TCONTINUE  PIC  X(l).  8784 

DECLARE  I MSG  PIC  9(2).  8785 

DECLARE  FLG1  PIC  X(l).  8786 

! 8787 

! 8788 

! 8790 

! VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM  879i 

! 8792 

! 8794 

DECLARE  TMSG  PIC  X(80).  8795 

DECLARE  TMSG1  PIC  X(80).  8796 

DECLARE  TMSG2  PIC  X(80).  8797 

DECLARE  TMSG3  PIC  X(80).  8798 

DECLARE  TMSG4  PIC  X(80).  8799 

DECLARE  TMSG5  PIC  X(80).  ssoo 

DECLARE  TMSG5A  PIC  X(80).  ssoi 

DECLARE  TMSG6  PIC  X(80).  8802 

DECLARE  TMSG7  PIC  X(80).  8803 

DECLARE  TMSG8  PIC  X(80).  8804 

! 8805 

! 8807 

! VARIABLES  USED.  AS  COUNTERS  esos 

! 8809 

1 8811 
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DECLARE  ICNT  PIC  9(4). 
DECLARE  JCNT  PIC  9(4). 
DECLARE  I PIC  9(4). 
DECLARE  J PIC  9(4). 


VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 


DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  APPROPRIATE  DOMAINS,  INITIALIZE  THE  MESSAGE  VARIABLES, 
INITIALIZE  THE  COUNTER  (ICNT)  USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 
AND  INITIALIZE  THE  COUNTER  (JCNT)  USED  TO  CONTROL  THE  NUMBER  OF 
RECORDS  PRINTED  ON  EACH  PAGE  OF  THE  LOG  FILE 


SET  ABORT 

READY  REFERENCES  SHARED  WRITE 

READY  REFERENCES_FORM  SHARED  READ 

TMSG1  = “ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = “THE  FIRST  LINE  OF  THE  DOCUMENT  TITLE  SHOULD  NOT  END  WITH  “ | 

“A  HYPHENATED  WORD" 

TMSG3  = “ORIGINATING  ORGANIZATION  IS  NOT  VALID  — NOT  IN  “ | 

“REFERENC  E_SOU  R C E_T  ABLE" 

TMSG4  = “DOCUMENT  DATE  IS  NOT  VALID  — MONTH  MUST  BE  JAN,  FEB,  MAR,  ETC." 

TMSG5  = “DOCUMENT  DATE  IS  NOT  VALID 

TMSG5A  = “EXCEEDS  THE  NUMBER  OF  DAYS  IN“ 

TMSG6  = “DOCUMENT  DATE  IS  NOT  VALID  - YEAR  MUST  BE  GREATER  THAN  1960“ 
TMSG7  = “THIS  TITLE,  ORGANIZATION  AND  DATE  ALREADY  EXIST  IN  DOMAIN  " | 
“REFERENCES" 

TMSG8  = “CONTINUE  IS  NOT  VALID  --  MUST  BE  Y,  N OR  A" 

ICNT  = 0 

JCNT  = 0 


PRIMARY  LOOP  TO  STORE  REFERENCES 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR 
CORRECTION  OF  INVALID  INFORMATION 


8812 

8813 

8814 

8815 

8816 

8817 

8818 

8819 

8820 
8821 
8822 

8823 

8824 

8825 

8826 

8827 

8828 

8829 

8830 

8831 

8832 

8833 

8834 

8835 

8836 

8837 

8838 

8839 

8840 

8841 

8842 

8843 

8844 

8845 

8846 

8847 

8848 

8849 

8850 

8851 

8852 

8853 

8854 

8855 

8856 

8857 

8858 

8859 

8860 
8861 
8862 
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2.  IF  TCONTINUE  NE  "A",  SECTION  TO  REARRANGE  THE  VARIABLES 
ASSOCIATED  WITH  AUTHORS 

3.  IF  TCONTINUE  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN 
REFERENCES  AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED 

4.  IF  TCONTINUE  NE  "A",  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN 
REFERENCES  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE 

5.  IF  TCONTINUE  = "A",  SECTION  TO  PRINT  MESSAGE  THAT  DATA  CURRENTLY 
ON  FORM  HAS  NOT  BEEN  STORED 

6.  IF  TCONTINUE  - "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE  * "Y” 

WHILE  TCONTINUE  = MY” 
BEGIN 


LOOP  TO  DISPLAY  A BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


FLG1  * "N” 

I MSG  = 1 

WHILE  FLG1  = "N" 


BEGIN 

IF 

I MSG 

s 

1 

THEN 

TMSG 

IF 

I MSG 

s 

2 

THEN 

TMSG 

IF 

I MSG 

= 

3 

THEN 

TMSG 

IF 

I MSG 

= 

4 

THEN 

TMSG 

IF 

I MSG 

s 

5 

THEN 

TMSG 

IF 

I MSG 

a 

6 

THEN 

TMSG 

IF 

I MSG 

= 

7 

THEN 

TMSG 

IF 

I MSG 

= 

8 

THEN 

TMSG 

TMSG1 

TMSG2 

TMSG3 

TMSG4 

TMSG5  ||  ■ ■ | TDAY  | - ■ | TMSG5A  || 

* " | TMONTH  VIA  MONTH JABLE 

TMSG6 

TMSG7 

TMSG8 


THIS  SECTION  DISPLAYS  THE  STORE  REFERENCES  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 


FOR  FIRST  1 REFERENCES  JORM 
BEGIN 

DISPLAY  JORM  REFERENCES  _STO  JORM  IN 

DEVS206 : [ BCDSSME2 . FORMS ] FORMSL I B . RLB  USING 


8863 

8864 

8865 

8866 

8867 

8868 

8869 

8870 

8871 

8872 

8873 

8874 

8875 

8876 

8877 

8878 

8879 

8880 
8881 
8882 

8883 

8884 

8885 

8886 

8887 

8888 

8889 

8890 

8891 

8892 

8893 

8894 

8895 

8896 

8897 

8898 

8899 

8900 

8901 

8902 

8903 

8904 

8905 

8906 

8907 

8908 

8909 

8910 

8911 

8912 

8913 
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BEGIN  8914 

IF  I MSG  NE  1 THEN  89 is 

BEGIN  8916 

PUTJORM  AUTHOR_l  = TAUTHOR1  89 1 7 

PUT_FORM  AUTHOR  2 = TAUTHOR2  89 is 

PUTJORM  AUTHORJ  = TAUTHOR3  89 1 9 

PUTJORM  AUTHORJ  = TAUTHOR4  8920 

PUTJORM  TITLE_1  = TTITLE1  892 1 

PUTJORM  TITLE_2  = TTITLE2  8922 

PUTJORM  ORGANIZATION  = TSOURCE  8923 

PUTJORM  DOCUMENTJIO  = TDOCNO  8924 

PUTJORM  DATE  = TDOCDATE  8925 

PUTJORM  CONTRACT_NO  = TCONTNO  8926 

END  8927 

PUTJORM  CONTINUE  * TCONTINUE  8928 

PUTJORM  MESSAGE  = TMSG  8929 

END  RETRIEVE  USING  8930 

BEGIN  893i 

TAUTH0R1  = GETJORM  AUTHORJ  8932 

TAUTH0R2  = GETJORM  AUTHORJ  8933 

TAUTH0R3  = GETJORM  AUTHORJ  8934 

TAUTH0R4  = GETJORM  AUTHORJ  8935 

TTITLE1  = GETJORM  TITLEJ  8936 

TTITLE2  = GETJORM  TITLEJ  8937 

TSOURCE  = GETJORM  ORGANIZATION  8938 

TDOCNO  = GETJORM  DOCUMENTJIO  8939 

TDOCDATE  = GETJORM  DATE  8940 

TCONTNO  = GETJORM  CONTRACT JIO  894 1 

TCONTINUE  = GETJORM  CONTINUE  8942 

END  8943 

END  8944 

8945 

8946 

8948 

IF  TCONTINUE  IS  NOT  EQUAL  TO  “A",  ANY  LEADING  BLANKS  WHICH  8949 

WERE  INADVERTENTLY  ENTERED  IN  TAUTH0R1,  TAUTH0R2,  TAUTH0R3,  8950 

TAUTH0R4,  TTITLE1,  TTITLE2,  TSOURCE,  TDOCNO  AND  TCONTNO  ARE  895 1 

REMOVED  8952 

8953 

8955 

IF  TCONTINUE  NE  "A"  THEN  8956 

BEGIN  8957 

I = 1 8958 

WHILE  I LE  9 8959 

BEGIN  8960 

IF  I = 1 THEN  TEMP  = TAUTH0R1  896 i 

IF  I = 2 THEN  TEMP  = TAUTH0R2  8962 

IF  I = 3 THEN  TEMP  = TAUTH0R3  8963 

IF  I = 4 THEN  TEMP  = TAUTH0R4  8964 
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IF  I = 5 THEN  TEMP  2 TTITLE1  8965 

IF  I » 6 THEN  TEMP  2 TTITLE2  8966 

IF  I = 7 THEN  TEMP  2 TSOURCE  8967 

IF  I = 8 THEN  TEMP  2 TDOCNO  8968 

IF  I * 9 THEN  TEMP  2 TCONTNO  8969 

IF  TEMP  NE  " " THEN  8970 

BEGIN  8971 

J 2 1 8972 

WHILE  FNSSTR_EXTRACT ( TEMP , J,  1)  2 " " 8973 

BEGIN  8974 

J = J + 1 8975 

END  8976 

TEMP  2 FN$STR_EXTRACT ( TEMP , J,  112  - J + 1)  8977 

END  8978 

IF  I * 1 THEN  TAUTH0R1  2 TEMP  8979 

IF  I 2 2 THEN  TAUTH0R2  = TEMP  8980 

IF  I 2 3 THEN  TAUTH0R3  2 TEMP  898 i 

IF  I 2 4 THEN  TAUTH0R4  2 TEMP  8982 

IF  I 2 5 THEN  TTITLE1  2 TEMP  8983 

IF  I 2 6 THEN  TTITLE2  2 TEMP  8984 

IF  I 2 7 THEN  TSOURCE  2 TEMP  8985 

IF  I 2 8 THEN  TDOCNO  2 TEMP  8986 

IF  I 2 9 THEN  TCONTNO  2 TEMP  8987 

I 2 I + 1 8988 

END  8989 

END  8990 


8991 

8992 

8993 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

9008 


FLG1  2 "Y"  9009 

IF  TCONTINUE  NE  "A"  THEN  9010 

BEGIN  90ii 

J 2 80  9012 

WHILE  FN$STR_EXTRACT ( TT I TLE1 , J,  1)  2 " " 9013 

BEGIN  9014 

J 2 J - 1 9015 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TTITLE1  DOES  NOT  END  WITH  A HYPENATED  WORD 

2.  TSOURCE  IS  IN  REFERENCE_SOURCE  TABLE 

3.  TMONTH  IS  IN  MONTH  TABLE 

4.  NDAY  IS  LESS  THAN  OR  EQUAL  TO  THE  NUMBER  OF  DAYS  IN 
TMONTH 

5.  NYEAR  IS  GREATER  THAN  OR  EQUAL  TO  1960 

6.  TTITLE,  TSOURCE  AND  TDOCDATE  DO  NOT  ALREADY  EXIST  IN 
DOMAIN  REFERENCES 

7.  TCONTINUE  IS  "Y\  "N"  OR  "AH 
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END  9016 

IF  FN$STR_EXTRACT ( TT I TLE1 , J,  1)  = AND  9017 

FN$STR_EXTRACT ( TTITLE1 , J - 1,  1)  NE  " " AND  90 is 

FN$STR_EXTRACT ( TT I TLE1 , J - 2,  2)  NE  " THEN  9019 

BEGIN  9020 

FLG1  = "N"  9021 

I MSG  = 2 9022 

END  9023 

TTITLE  = TTITLE1  | | " " | TTITLE2  9024 

IF  FLG1  = "Y"  THEN  9025 

BEGIN  9026 

IF  TSOURCE  NOT  IN  REFERENCE_SOURCE_TABLE  THEN  9027 

BEGIN  9028 

FLG1  = "N"  9029 

IMSG  = 3 9030 

END  9031 

END  9032 

IF  FLG1  = "Y"  THEN  9033 

BEGIN  9034 

TMONTH  = FN$STR_EXTRACT ( TDOCDATE , 3,  3)  9035 

IF  TMONTH  NOT  IN  MONTH_TABLE  THEN  9036 

BEGIN  9037 

FLG1  = "N"  9038 

IMSG  s 4 9039 

END  9040 

END  9041 

IF  FLG1  * "Y"  THEN  9042 

BEGIN  9043 

TDAY  = FN$STR_EXTRACT( TDOCDATE,  1,  2)  9044 

NDAY  = TDAY  9045 

IF  NDAY  LT  10  THEN  TDAY  = "O'1  | TDAY  9046 

IF  (TMONTH  = "JAN"  AND  NDAY  GT  31)  OR  9047 

(TMONTH  = "FEB"  AND  NDAY  GT  29)  OR  9048 

(TMONTH  = "MAR"  AND  NDAY  GT  31)  OR  9049 

(TMONTH  = "APR"  AND  NDAY  GT  30)  OR  9050 

(TMONTH  = "MAY"  AND  NDAY  GT  31)  OR  9051 

(TMONTH  = "JUN"  AND  NDAY  GT  30)  OR  9052 

(TMONTH  = "JUL"  AND  NDAY  GT  31)  OR  9053 

(TMONTH  = "AUG"  AND  NDAY  GT  31)  OR  9054 

(TMONTH  = "SEP"  AND  NDAY  GT  30)  OR  9055 

(TMONTH  = "OCT"  AND  NDAY  GT  31)  OR  9056 

(TMONTH  = "NOV"  AND  NDAY  GT  30)  OR  9057 

(TMONTH  = "DEC"  AND  NDAY  GT  31)  THEN  9058 

BEGIN  9059 

FLG1  = "N"  9060 

IMSG  =5  906i 

END  9062 

END  9063 

IF  FLG1  = "Y"  THEN  9064 

BEGIN  9065 

TYEAR  = FN$STR_EXTRACT( TDOCDATE,  6,  4)  9066 
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NYEAR  = TYEAR 
IF  NYEAR  LT  1960  THEN 
BEGIN 

FLG1  = "N" 

I MSG  = 6 
END 
END 

IF  FLG1  = “Y"  THEN 
BEGIN 

FOR  REFERENCES  WITH  DOCUMENT  TITLE  = TTITLE  AND 

DOCUMENT_SOURCE  = TSOURCE  AND 

DOCUMENT_DATE  = TDAY  | | 

TMONTH  | 

TYEAR 

BEGIN 

FLG1  = "N" 

I MSG  = 7 
END 
END 

IF  FLG1  = "Y"  THEN 
BEGIN 

IF  TCONTINUE  NE  "Y"  AND 
TCONTINUE  NE  "N"  AND 
TCONTINUE  NE*  "A"  THEN 
BEGIN 

FLG1  = MN" 

I MSG  = 8 
END 
END 
END 
END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TAUTH0R1,  TAUTH0R2,  TAUTH0R3  AND  TAUTH0R4  SO  THAT  THE 
FIRST  VALUE  WHICH  IS  NOT  BLANK  IS  TAUTH0R1,  THE  SECOND  VALUE  WHICH 
IS  NOT  BLANK  IS  TAUTH0R2,  ETC. 


IF  TCONTINUE  NE  ,,AM  THEN 
BEGIN 


TEMP  = TAUTH0R1  | 

! "#$#" 

| TAUTH0R2 

TAUTH0R3  | 

1 "#$#" 

TAUTH0R4 

I = 1 

WHILE  I LE  4 


BEGIN 
J = 1 

WHILE  J = 1 


9067 

9068 

9069 

9070 

9071 

9072 

9073 

9074 

9075 

9076 

9077 

9078 

9079 

9080 

9081 

9082 

9083 

9084 

9085 

9086 

9087 

9088 

9089 

9090 

9091 

9092 

9093 

9094 

9095 

9096 

9097 

9098 

9099 

9100 

9101 

9102 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 
911  1 
91  12 
9113 
91  14 
91  15 

9116 

9117 
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BEGIN 

J = FN$STR_LOC(TEMP,  "#$#") 

IF  J = 0 THEN  TTAUTHOR  = " " 

IF  J = 1 THEN  TEMP  = FN$STR_EXTRACT ( TEMP , 4,  109) 

IF  J GT  1 THEN 
BEGIN 

TTAUTHOR  = FN$STR_EXTRACT ( TEMP , 1,  J - 1) 

TEMP  = FN$STR_EXTRACT ( TEMP , J,  112  - J + 1) 
END 
END 

IF  I = 1 THEN  TAUTH0R1  = TTAUTHOR 

IF  I = 2 THEN  TAUTH0R2  = TTAUTHOR 

IF  I « 3 THEN  TAUTH0R3  = TTAUTHOR 

IF  I = 4 THEN  TAUTH0R4  = TTAUTHOR 

1 = 1 + 1 
END 
END 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  IS  STORED  IN 
DOMAIN  REFERENCES 


IF  TCONTINUE  NE  "A"  THEN 
BEGIN 

TSEQNO  = 1 

FOR  REFERENCES  WITH  DOCUMENT_SOURCE  = TSOURCE  SORTED  BY 

REFERENCE_NUMBER 

BEGIN 

TSEQNO  = SEQNO  + 1 
END 


CAL  = 
STORE 


"NOW" 

REFERENCES  USING 
BEGIN 

DATE_CREATED 

SOURCE_ABBREVIATION 

SEQUENCE_NUMBER 

AUTH0R1 

AUTH0R2 

AUTH0R3 

AUTH0R4 

DOCUMENT_TITLE 

DOCUMENT_SOURCE 

DOCUMENT_NUMBER 

DOCUMENT_DATE 

CONTRACT_NUMBER 

END 


CAL 

TSOURCE  VIA  REFERENCE_ABBREV_TABLE 

TSEQNO 

TAUTH0R1 

TAUTH0R2 

TAUTH0R3 

TAUTH0R4 

TTITLE 

TSOURCE 

TDOCNO 

TDAY  | | TMONTH  | | TYEAR 

TCONTNO 


91  18 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 

9127 

9128 

9129 

9130 

9131 

9132 

9133 

9134 

9135 

9136 

9137 

9138 

9139 

9140 

9141 

9142 

9143 

9144 

9145 

9146 

9147 

9148 

9149 

9150 

9151 

9152 

9153 

9154 

9155 

9156 

9157 

9158 

9159 

9160 

9161 

9162 

9163 

9164 

9165 

9166 

9167 

9168 


END 
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9169 

9170 

9171 

9172 

IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN  i 

9173 

REFERENCES  IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENTS  WILL  BE  j 

9174 

INCLUDED  IN  THE  SESSION  LOG  FILE  WHICH  IS  OPENED 

BY  THE  CALLING 

9175 

COMMAND  PROCEDURE. 

9176 

9177 

9 1 78 
9179 

[F  TCONTINUE  NE  "A"  THEN 

9180 

BEGIN 

9181 

ICNT  = ICNT  + 1 

9182 

JCNT  = JCNT  + 1 

9183 

IF  JCNT  = 1 THEN  PRINT  NEW  PAGE 

9184 

FOR  REFERENCES  WITH  DOCUMENT  TITLE  = TTITLE 

AND 

9185 

DOCUMENT  SOURCE  = TSOURCE 

AND 

9186 

DOCUMENT  DATE  = TDAY 

II  _ ti 

9187 

TMONTH 

II  — ti 

9188 

TYEAR 

9189 

PRINT  SKIP  4, 

9190 

COL  1,  "RECORD  NO.",  SPACE  1, 

9191 

ICNT  (-)  USING  ZZ9,  SKIP  1, 

9192 

COL  1,  "====================",  SPACE  0, 

9193 

•■===«=«=«========*",  SPACE  0, 

9194 

SPACE  0, 

9195 

, SKIP 

2, 

9196 

COL  3,  "DATE  CREATED 

SPACE  1, 

9197 

DATE  CREATED  (-)  USING  X(23), 

SKIP 

1, 

9198 

COL  3,  "REFERENCE  NUMBER 

SPACE  1, 

9199 

REFERENCE  NUMBER  (-)  USING  X(5),  SKIP  1, 

9200 

COL  3,  "AUTH0R1  SPACE  1, 

9201 

AUTH0R1  (-)  USING  T(25),  SKIP  1, 

9202 

COL  3,  "AUTH0R2  SPACE  1, 

9203 

AUTH0R2  (-)  USING  T(25),  SKIP  1, 

9204 

COL  3,  "AUTH0R3  SPACE  1, 

9205 

AUTH0R3  (-)  USING  T(25),  SKIP  1, 

9206 

COL  3,  "AUTH0R4  SPACE  1, 

9207 

AUTH0R4  (-)  USING  T(25),  SKIP  1, 

9208 

COL  3,  "DOCUMENT  TITLE 

SPACE  1, 

9209 

DOCUMENT  TITLE  (-)  USING  T(55),  SKIP  1, 

9210 

COL  3,  "DOCUMENT  SOURCE 

SPACE  1, 

9211 

DOCUMENT  SOURCE  (-)  USING  X(30),  SKIP  1, 

9212 

COL  3,  "DOCUMENT  NUMBER 

SPACE  1, 

9213 

DOCUMENT  NUMBER  (-)  USING  X(30),  SKIP  1, 

9214 

COL  3,  "DOCUMENT  DATE 

SPACE  1, 

9215 

DOCUMENT  DATE  (-)  USING  X(20),  SKIP  1, 

9216 

COL  3,  "CONTRACT  NUMBER 

SPACE  1, 

9217 

CONTRACT  NUMBER  (-)  USING  X(20),  SKIP  2, 

9218 

COL  1,  "====================",  SPACE  0, 

9219 
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»====================",  SPACE  0, 

============»,  SPACE  0, 

n=================__=u 

IF  JCNT  = 2 THEN  JCNT  = 0 
: BELL 
END 


IF  TCONTINUE  IS  EQUAL  TO  "A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED.  THIS 
MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

JCNT  = JCNT  + 1 

IF  JCNT  = 1 THEN  PRINT  NEW_PAGE 
PRINT  SKIP  4, 

COL  1,  ========================== ==««'  , SPACE  0, 

======================== ===========»,  SKIP  4, 

COL  9 "*******************************"  SKIP  2 
COL  9!  "*****  RECORD  NOT  STORED  *****%  SKIP  l\ 

COL  9 ** ******************************* 11  SKIP  4 

COL  l!  ========================================",  SPACE  0, 


IF  JCNT  = 2 THEN  JCNT  = 0 
END 


IF  TCONTINUE  EQUALS  "A\  A RESPONSE  IS  REQUESTED  TO  EITHER  CONTINUE 
THE  PROCEDURE  TO  STORE  REFERENCES  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE 
:CLRSCRN 
TCONTINUE  = "X" 

WHILE  TCONTINUE  NE  "Y"  AND 
TCONTINUE  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  entering  REFERENCES?", 
SKIP  1 

TCONTINUE  = FN$UPCASE(*. "Y  or  N") 


9220 

9221 

9222 

9223 

9224 

9225 

9226 

9227 

9228 

9229 

9230 

9231 

9232 

9233 

9234 

9235 

9236 

9237 

9238 

9239 

9240 

9241 

9242 

9243 

9244 

9245 

9246 

9247 

9248 

9249 

9250 

9251 

9252 

9253 

9254 

9255 

9256 

9257 

9258 

9259 

9260 

9261 

9262 

9263 

9264 

9265 

9266 

9267 

9268 

9269 

9270 
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PRINT  " " 9271 

END  9272 

END  9273 

END  9274 

END-PROCEDURE  9275 
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DEFINE  PROCEDURE  S132  9276 
SET  COLUMNS_PAGE  = 132  9277 
FN$WIDTH( 132 ) 9278 
END-PROCEDURE  9279 
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Datatrieve  Procedure  S80 


DEFINE  PROCEDURE  S80 
SET  COLUMNS_PAGE  = 80 
FN$WIDTH(80) 
END-PROCEDURE 


F-219 


Datatrieve  Procedure  SYS_MODIFY 


DEFINE 

j 

i 

i 

5R0CEDURE  SYS. 

_MODIFY 

9284 

9285 

9286 

j 

9287 

9288 

! VARIABLES  ASSOCIATED  WITH  SYSTEM  AND  SYSTEM  NAME 

9289 

J 

1 

9290 

DECLARE 

TSYSTEM 

PIC  X(4) . 

929 1 

9292 

DECLARE 

TSYSNAME 

PIC  X(80) . 

9293 

DECLARE 

TTSYSNAME 

PIC  X(80) . 

9294 

! 

9295 

i 

9296 

• 1T  JLJ  IM  TL  I-T  1 

9297 

i 

9298 

! VARIABLES  ASSOCIATED  WITH  FMEA  ITEMS  j 

9299 

| 

| ....... 

9300 

930 1 

J 

9302 

DECLARE 

TITEM1 

PIC  X(4) . 

9303 

DECLARE 

TITEM2 

PIC  X(4) . 

9304 

DECLARE 

TITEM3 

PIC  X(4) . 

9305 

DECLARE 

TITEM4 

PIC  X(4) . 

9306 

DECLARE 

TITEM5 

PIC*X(4) . 

9307 

DECLARE 

TITEM6 

PIC  X(4) . 

9308 

DECLARE 

TITEM7 

PIC  X(4) . 

9309 

DECLARE 

TITEM8 

PIC  X(4) . 

9310 

DECLARE 

TITEM9 

PIC  X(4) . 

9311 

DECLARE 

TITEMIO 

PIC  X(4) . 

9312 

DECLARE 

TITEM11 

PIC  X(4) . 

9313 

DECLARE 

TITEM12 

PIC  X(4) . 

9314 

DECLARE 

TITEM13 

PIC  X(4). 

9315 

DECLARE 

TITEM14 

PIC  X(4) . 

9316 

DECLARE 

TITEM15 

PIC  X(4) . 

9317 

DECLARE 

TTITEM1 

PIC  X(4) . 

9318 

DECLARE 

TTITEM2 

PIC  X(4) . 

9319 

DECLARE 

TTITEM3 

PIC  X(4) . 

9320 

DECLARE 

TTITEM4 

PIC  X(4) . 

9321 

DECLARE 

TTITEM5 

PIC  X(4) . 

9322 

DECLARE 

TTITEM6 

Pit  X(4) . 

9323 

DECLARE 

TTITEM7 

PIC  X(4) . 

9324 

DECLARE 

TTITEM8 

PIC  X(4) . 

9325 

DECLARE 

TTITEM9 

PIC  X(4) . 

9326 

DECLARE 

TTITEMIO 

PIC  X(4) . 

9327 

DECLARE 

TTITEM11 

PIC  X(4) . 

9328 

DECLARE 

TTITEM12 

PIC  X( 4) . 

9329 

DECLARE 

TTITEM13 

PIC  X( 4) . 

9330 

DECLARE 

TTITEM14 

PIC  X(4) . 

9331 

DECLARE 

TTITEM15 

PIC  X(4) . 

9332 

DECLARE 

TITEM 

PIC  X(4). 

9333 

1 

9334 
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j 

9335 

1 

1 

9336 

9337 

! VARIABLES  ASSOCIATED  WITH  REFERENCES 

1 

• 

t 

9341 

DECLARE  TREF1 

PIC  X(5). 

9342 

DECLARE  TREF2 

PIC  X(5). 

9343 

DECLARE  TREF3 

PIC  X(5) . 

9344 

DECLARE  TREF4 

PIC  X(5). 

9345 

DECLARE  TREF5 

PIC  X(5) . 

9346 

DECLARE  TREF6 

PIC  X( 5) . 

9347 

DECLARE  TREF7 

PIC  X(5). 

9348 

DECLARE  TREF8 

PIC  X(5). 

9349 

DECLARE  TREF9 

PIC  X(5). 

9350 

DECLARE  TREFIO 

PIC  X(5). 

9351 

DECLARE  TTREF1 

PIC  X(5). 

- 9352 

DECLARE  TTREF2 

PIC  X( 5) . 

9353 

DECLARE  TTREF3 

PIC  X(5). 

9354 

DECLARE  TTREF4 

PIC  X(5). 

9355 

DECLARE  TTREF5 

PIC  X(5). 

9356 

DECLARE  TTREF6 

PIC  X(5). 

9357 

DECLARE  TTREF7 

PIC  X(5). 

9358 

DECLARE  TTREF8 

PIC  X(5). 

9359 

DECLARE  TTREF9 

PIC  X(5). 

9360 

DECLARE  TTREFIO 

PIC  X(5). 

9361 

DECLARE  TREF 

PIC  X(5). 

9362 

1 

9363 

1 

9364 

j 

9365 

9366 

! VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  FMEA  ITEMS  AND 

9367 

! REFERENCES 

9368 

i 

9369 

I 

9370 

9371 

DECLARE  TEMP 

PIC  X(60) . 

9372 

j 

9373 

I 

9374 

93/5 

j 

9376 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 

9377 

| 

9378 

• 

1 

9379 

9380 

DECLARE  TCONTINUE1 

PIC  X(l). 

9381 

DECLARE  TCONTINUE2 

PIC  X(l). 

9382 

DECLARE  IMSG 

PIC  9(2). 

9383 

DECLARE  FLG1 

PIC  X(l). 

9384 

DECLARE  FLG2 

PIC  X(l). 

9385 
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DECLARE  FLG3 
DECLARE  FLG4 
DECLARE  FLG5 

j 

1 

i 

PIC  X(l). 
PIC  X(l). 
PIC  X(l). 

9386 

9387 

9388 

9389 

9390 

| 

9391 

9392 

! VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

9393 

; 

i 

9394 

— — — — — — — — — — — — — — — — — — 

9395 

| 

9396 

DECLARE  TMSG 

PIC  X(80) . 

9397 

DECLARE  TMSG1 

PIC  X(80). 

9398 

DECLARE  TMSG2 

PIC  X(80) . 

9399 

DECLARE  TMSG3 

PIC  X( 80) . 

9400 

DECLARE  TMSG4 

PIC  X(80) . 

9401 

DECLARE  TMSG4A 

PIC  X(80). 

9402 

DECLARE  TMSG5 

PIC  X(80) . 

9403 

DECLARE  TMSG5A 

PIC  X ( 80 ) . 

9404 

DECLARE  TMSG6 

PIC  X(80) . 

9405 

DECLARE  TMSG7 

PIC  X(80). 

9406 

DECLARE  TMSG8 

PIC  X(80). 

9407 

DECLARE  TMSG9 

PIC  X(80). 

9408 

DECLARE  TMSG 10 

PIC  X( 80) . 

9409 

J 

9410 

J 

941  1 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

It 

II 

9412 

| 

9413 

! VARIABLES  USED 

AS  COUNTERS 

9414 

1 

♦ 

9415 

9416 

| 

9417 

DECLARE  ICNT 

PIC  9(4). 

9418 

DECLARE  JCNT 

PIC  9(4). 

9419 

DECLARE  KCNT 

PIC  9(4). 

9420 

DECLARE  I 

PIC  9(4). 

9421 

J 

9422 

J 

9423 

9424 

| 

9425 

! VARIABLES  USED 

TO  TEMPORARILY  STORE  SYSTEM  DATA  FOR  COMPARISON  OF 

9426 

! INITIAL  AND  MODIFIED  VALUES  j 

9427 

1 

1 

9428 

| 

9429 

9430 

DECLARE  HDCREATED 

USAGE  DATE 

9431 

EDIT  STRING  X(23). 

9432 

DECLARE  HSYSTEM 

PIC  X(4) . 

9433 

DECLARE  HSYSNAME 

PIC  X(80) . 

9434 

DECLARE  HITEM1 

PIC  X(4) . 

9435 

DECLARE  HITEM2 

PIC  X(4) . 

9436 
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DECLARE 

HITEM3 

PIC  X(4) . 

9437 

DECLARE 

HITEM4 

PIC  X(4) . 

9438 

DECLARE 

HITEM5 

PIC  X(4) . 

9439 

DECLARE 

HITEM6 

PIC  X(4) . 

9440 

DECLARE 

HITEM7 

PIC  X(4) . 

9441 

DECLARE 

HITEM8 

PIC  X(4) . 

9442 

DECLARE 

HITEM9 

PIC  X(4) . 

9443 

DECLARE 

HITEMIO 

PIC  X(4) . 

9444 

DECLARE 

HITEM11 

PIC  X(4) . 

9445 

DECLARE 

HITEM12 

PIC  X(4) . 

9446 

DECLARE 

HITEM13 

PIC  X(4) . 

9447 

DECLARE 

HITEM14 

PIC  X(4) . 

9448 

DECLARE 

HITEM15 

PIC  X(4) . 

9449 

DECLARE 

HREF1 

PIC  X( 5) . 

9450 

DECLARE 

HREF2 

PIC  X(5). 

9451 

DECLARE 

HREF3 

PIC  X(5). 

9452 

DECLARE 

HREF4 

PIC  X(5) . 

9453 

DECLARE 

HREF5 

PIC  X(5) . 

9454 

DECLARE 

HREF6 

PIC  X(5) . 

9455 

DECLARE 

HREF7 

PIC  X(5) . 

9456 

DECLARE 

HREF8 

PIC  X(5) . 

9457 

DECLARE 

HREF9 

PIC  X( 5) . 

9458 

DECLARE 

HREFIO 

PIC  X(5) . 

9459 

DECLARE 

HFIPCREATED 

PIC  X(3) . 

9460 

DECLARE 

HDLASTMOD 

USAGE  DATE 

9461 

EDIT  STRING  X(23). 

9462 

DECLARE 

HMODPROC 

PIC  X(20) . 

9463 

j 

9464 

t 

i - — . 

9465 

• 

1 

y40D 

9467 

! VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 

9468 

I 

1 - - . 

9469 

o a ^r\ 

• 

J 

y47U 

9471 

DECLARE  CAL  USAGE  DATE 

9472 

EDIT  STRING  X(23). 

9473 

I 

9474 

| 

9475 

Q/7C 

1 

y4  / d 
9477 

! READY  THE  DOMAINS 

REFERENCES,  SYSTEMS  AND  SYSTEMS_FORM 

9478 

! 

I 

9479 

Q/nn 

! 

y4ou 

9481 

SET  ABORT 

9482 

READY  SYSTEMS 

SHARED  WRITE 

9483 

READY  REFERENCES 

SHARED  READ 

9484 

READY  SYSTEMS  FORM 

SHARED  READ 

9485 

| 

9486 

J 

9487 
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INITIALIZE  THE  MESSAGE  VARIABLES,  INITIALIZE  THE  COUNTER  (KCNT)  USED 
FOR  NUMBERING  THE  LOG  FILE  RECORDS 


TMSG1  = "ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = "DATA  MUST  BE  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS  OR  CONTINUE  " | 
"MUST  BE  N" 

TMSG3  = "SYSTEM  IS  NOT  VALID  — NOT  IN  DOMAIN  SYSTEMS" 

TMSG4  = "FMEA  ITEM  IS  NOT  VALID 
TMSG4A  = "NOT  IN  FMEA  _ITEM_NAME_T ABLE" 

TMSG5  = "REFERENCE  DOCUMENT  IS  NOT  VALID 
TMSG5A  = "DOES  NOT  EXIST  IN  DOMAIN  REFERENCES" 

TMSG6  = "CONTINUE  IS  NOT  VALID  - MUST  BE  Y OR  N" 

TMSG7  = "NO  RECORDS  HAVE  BEEN  FOUND  WITH  THE  DATA  INDICATED  ABOVE" 

TMSG8  = "ENTER  MODIFICATIONS  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 
TMSG9  = "SYSTEM  NAME  IS  NOT  VALID  - ALREADY  EXISTS  IN  DOMAIN  SYSTEMS" 
TMSG10  = "CONTINUE  IS  NOT  VALID  --  MUST  BE  Y,  N OR  A" 

KCNT  = 0 


PRIMARY  LOOP  TO  MODIFY  SYSTEMS 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1*  LOOP  TO  REQUEST  SEARCH  DATA,  TEST  VALUES,  PROMPT  FOR  CORRECTION 
OF  INVALID  INFORMATION  AND  COUNT  THE  RECORDS  WHICH  MATCH  THE 
SPECIFIED  INPUT  FIELDS 

2.  IF  TCONTINUE1  NE  "N\  SECTION  TO  DISPLAY  THE  MATCHING  RECORDS 
ONE  AT  A TIME  FOR  POSSIBLE  MODIFICATION  (THIS  SECTION  IS 
TERMINATED  WHEN  TCONTINUE2  = "N") 

3,  IF  TCONTINUE1  = "N",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE1  = "Y" 

WHILE  TCONTINUE1  = "Y" 
BEGIN 


LOOP  TO  DISPLAY  BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


9488 

9489 

9490 

9491 

9492 

9493 

9494 

9495 

9496 

9497 

9498 

9499 

9500 

9501 

9502 

9503 

9504 

9505 

9506 

9507 

9508 

9509 

9510 
951  1 

9512 

9513 

9514 

9515 

9516 

9517 

9518 

9519 

9520 

9521 

9522 

9523 

9524 

9525 

9526 

9527 

9528 

9529 

9530 

9531 

9532 

9533 

9534 

9535 

9536 

9537 

9538 
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FLG1  = "N" 

I MSG  = 1 

WHILE  FLG1  = "N" 

BEGIN 

IF  I MSG  = 1 THEN  TMSG  = TMSG1 

IF  I MSG  = 2 THEN  TMSG  = TMSG2 

IF  I MSG  = 3 THEN  TMSG  = TMSG3 

IF  I MSG  = 4 THEN  TMSG  = TMSG4  | 11  " | TITEM 

IF  I MSG  = 5 THEN  TMSG  = TMSG 5 | M " j TREF 

IF  I MSG  = 6 THEN  TMSG  = TMSG 6 

IF  I MSG  = 7 THEN  TMSG  = TMSG 7 

IF  IMSG  = 8 THEN  TMSG  = TMSG8 

IF  IMSG  = 9 THEN  TMSG  = TMSG9 

IF  IMSG  = 10  THEN  TMSG  = TMSG10 


TMSG4A 

TMSG5A 


THIS  SECTION  DISPLAYS  THE  FIND  SYSTEMS  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 


FOR  FIRST  1 SYSTEMSJORM 
BEGIN 

DISPLAY JORM  SYSTEMSJINJORM  IN 

DEVS206 : [ BCDSSME2 . FORMS] FORMSLIB . RLB  USING 
BEGIN 

IF  IMSG  NE  1 THEN 
BEGIN 


PUT 

FORM  SYSTEM 

= 

TSYSTEM 

PUT' 

‘FORM  SYSTEM  NAME 

= 

TSYSNAME 

PUT' 

FORM 

ITEM  1 

= 

TITEM1 

PUT' 

'FORM 

ITEM  2 

= 

TITEM2 

PUT' 

'FORM 

ITEM  3 

= 

TITEM3 

PUT' 

'FORM 

ITEM  4 

= 

TITEM4 

PUT' 

'FORM 

ITEM  5 

= 

TITEM5 

PUT' 

'FORM 

ITEM  6 

= 

TITEM6 

PUT' 

‘FORM 

ITEM  7 

= 

TITEM7 

PUT' 

'FORM 

ITEM  8 

= 

TITEM8 

PUT' 

'FORM 

ITEM  9 

= 

TITEM9 

PUT' 

'FORM 

ITEM  10 

= 

TITEM10 

PUT' 

'FORM 

ITEM  11 

= 

TITEM11 

PUT' 

'FORM 

ITEM  12 

s 

TITEM12 

PUT' 

'FORM 

ITEM  13 

= 

TITEM13 

PUT' 

"FORM 

ITEM  14 

= 

TITEM14 

PUT' 

"FORM 

ITEM  15 

= 

TITEM15 

PUT' 

'FORM 

REF  1 

= 

TREF1 

PUT' 

'FORM 

REF  2 

= 

TREF2 

PUT' 

"FORM 

REF  3 

= 

TREF3 

PUTJORM  REF_4 

= 

TREF4 

9539 

9540 

9541 

9542 

9543 

9544 

9545 

9546 

9547 

9548 

9549 

9550 

9551 

9552 

9553 

9554 

9555 

9556 

9557 

9558 

9559 

9560 

9561 

9562 

9563 

9564 

9565 

9566 

9567 

9568 

9569 

9570 

9571 

9572 

9573 

9574 

9575 

9576 

9577 

9578 

9579 

9580 

9581 

9582 

9583 

9584 

9585 

9586 

9587 

9588 

9589 
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PUT 

FORM  REF  5 = TREF5 

9590 

PUT  FORM  REF  6 = TREF6 

9591 

PUT 

FORM  REF  7 = TREF7 

9592 

PUT 

FORM  REF  8 = TREF8 

9593 

PUT 

FORM  REF  9 = TREF9 

9594 

PUT 

"FORM  REF  10  = TREFIO 

9595 

END 

9596 

PUT  FORM 

CONTINUE  = TC0NTINUE1 

9597 

PUT  FORM  MESSAGE  = TMSG 

9598 

END  RETRIEVE  USING 

9599 

BEGIN 

9600 

TSYSTEM 

= GET  FORM  SYSTEM 

9601 

TSYSNAME 

= GET  FORM  SYSTEM  NAME 

9602 

TITEM1 

= GET"FORM  ITEM  1 

9603 

TITEM2 

= GET  FORM  ITEM  2 

9604 

TITEM3 

= GET~FORM  ITEM  3 

9605 

TITEM4 

= GET  FORM  ITEM  4 

9606 

TITEM5 

= GET  FORM  ITEM  5 

9607 

TITEM6 

= GET  FORM  ITEM  6 

9608 

TITEM7 

= GET  FORM  ITEM  7 

9609 

TITEM8 

= GET  FORM  ITEM  8 

9610 

TITEM9 

= GET  FORM  ITEM  9 

9611 

TITEMIO 

= GET  FORM  ITEM  10 

9612 

TITEM11 

= GET  FORM  ITEM  11 

9613 

TITEM12 

□ GET  FORM  ITEM  12 

9614 

TITEM13 

= GET  FORM  ITEM  13 

9615 

TITEM14 

= GET  FORM  ITEM  14 

9616 

TITEM15 

= GET  FORM  ITEM  15 

9617 

TREF1 

= GET  FORM  REF  1 

9618 

TREF2 

= GET~FORM  REF  2 

9619 

TREF3 

= GET  FORM  REF  3 

9620 

TREF4 

= GET  FORM  REF  4 

9621 

TREF5 

= GET  FORM  REF  5 

9622 

TREF6 

= GET  FORM  REF  6 

9623 

TREF7 

= GET  FORM  REF  7 

9624 

TREF8 

= GET  FORM  REF  8 

9625 

TREF9 

= GET  FORM  REF  9 

9626 

TREFIO 

= GET  FORM  REF  10 

9627 

TCONTINUE1  = GET  FORM  CONTINUE 

9628 

END 

9629 

END 

9630 

9631 

9632 

OCT'S 

1 

9633 

9634 

IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N\  ANY  LEADING  BLANKS  WHICH 

9635 

WERE 

INADVERTENTLY 

ENTERED  IN  TSYSNAME  ARE  REMOVED  [ 

9636 

9637 

OCTO 

9638 

9639 

[F  TCONTINUE1  NE  "N"  AND 

9640 
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TSYSNAME  NE  " " THEN  964 i 

BEGIN  9642 

I = 1 9643 

WHILE  FN$STR_EXTRACT( TSYSNAME,  I,  1)  = * " 9644 

BEGIN  9645 

1=1+1  9646 

END  9647 

TSYSNAME  = FN$STR_EXTRACT( TSYSNAME,  I,  80  - I + 1)  9648 

END  9649 


9650 

9651 

9652 

9653 

9654 

9655 

9656 

9657 

9658 

9659 

9660 

9661 

9662 

9663 

9664 

9665 

9666 

9667 

9668 

9669 

9670 

9671 

9672 

9673 

9674 

9675 

9676 

9677 

9678 

9679 

9680 

9681 

9682 

9683 

9684 

9685 

9686 

9687 

9688 

9689 

9690 

9691 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  "N",  TESTS  ARE  PERFORMED  TO 
VERIFY  ANY  DATA  ENTERED  ON  THE  FORM.  AS  APPROPRIATE,  THE 
PROCEDURE  CHECKS  ANY  OR  ALL  OF  THE  FOLLOWING: 

1.  DATA  HAS  BEEN  ENTERED  IN  AT  LEAST  ONE  OF  THE  FIELDS 

2.  TSYSTEM  IS  IN  DOMAIN  SYSTEMS 

3.  ANY  OF  THE  VARIABLES  TITEM1  TO  TITEM15  WHICH  ARE  NOT 
BLANK  ARE  IN  TABLE  FMEA_I TEM_NAME_T ABLE 

4.  ANY  OF  THE  VARIABLES  TREF1  TO  TREF10  WHICH  ARE  NOT 
BLANK  ARE  IN  DOMAIN  REFERENCES 

5.  TC0NTINUE1  IS  "Y"  OR  "N" 

6.  AT  LEAST  ONE  RECORD  EXISTS  WITH  THE  DATA  SPECIFIED 


FLG1  = "Y" 

IF  TC0NTINUE1  NE  "N"  THEN 
BEGIN 


TSYSTEM 

= 

It 

II 

AND  TSYSNAME 

= 

II  II 

AND 

TITEM1 

= 

ll 

II 

AND  TITEM2 

= 

II  II 

AND 

TITEM3 

= 

ll  ll 

AND 

TITEM4 

= 

ll 

H 

AND  TITEM5 

= 

II  II 

AND 

TITEM6 

= 

ll  it 

AND 

TITEM7 

= 

ll 

II 

AND  TITEM8 

= 

II  II 

AND 

TITEM9 

ll  ll 

AND 

TITEM10 

= 

ll 

II 

AND  TITEM11 

= 

II  II 

AND 

TITEM12 

= 

ll  ll 

AND 

TITEM13 

= 

ll 

II 

AND  TITEM14 

= 

II  II 

AND 

TITEM15 

= 

ll  ll 

AND 

TREF1 

= 

ll 

It 

AND  TREF2 

= 

II  II 

AND 

TREF3 

= 

tl  ll 

AND 

TREF4 

= 

ll 

II 

AND  TREF5 

s 

It  II 

AND 

TREF6 

= 

ll  ll 

AND 

TREF7 

= 

ll 

II 

AND  TREF8 

s 

II  II 

AND 

TREF9 

= 

ll  ll 

AND 

TREF10 

BEGIN 

H 

If 

THEN 

FLG1  = "N" 

I MSG  = 2 
END 

IF  FLG1  = "Y"  AND 

TSYSTEM  NE  " " THEN 
BEGIN 

FLG2  = "N" 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM 
FLG2  = "Y” 

IF  FLG2  = "N"  THEN 
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BEGIN  9692 

FLG1  = "N"  9693 

I MSG  = 3 9694 

END  9695 

END  9696 

IF  FLG1  = "Y"  THEN  969? 

BEGIN  9698 

I = 1 9699 

WHILE  FLG1  = "Y"  AND  I LE  15  9700 

BEGIN  9701 

IF  I = 1 THEN  TITEM  = TITEM1  9702 

IF  I = 2 THEN  TITEM  = TITEM2  9703 

IF  I * 3 THEN  TITEM  = TITEM3  9704 

IF  I = 4 THEN  TITEM  = TITEM4  9705 

IF  I = 5 THEN  TITEM  = TITEM5  9706 

IF  I * 6 THEN  TITEM  = TITEM6  9707 

IF  I = 7 THEN  TITEM  = TITEM7  9708 

IF  I = 8 THEN  TITEM  = TITEM8  9709 

IF  I = 9 THEN  TITEM  = TITEM9  9710 

IF  I = 10  THEN  TITEM  = TITEM10  9711 

IF  I = 11  THEN  TITEM  = TITEM11  9712 

IF  I = 12  THEN  TITEM  = TITEM12  9713 

IF  I = 13  THEN  TITEM  * TITEM13  9714 

IF  I = 14  THEN  TITEM  = TITEM14  9715  • 

IF  I = 15  THEN  TITEM  = TITEM15  971 6 

IF  TITEM  NE  " " AND  9717 

TITEM  NOT  IN  FMEA  ITEM_NAME_TABLE  THEN  9718 

BEGIN  9719 

FLG1  = HN"  9720 

IMSG  * 4 9721 

END  9722 

1 = 1 + 1 9723 

END  9724 

END  9725 

IF  FLG1  = HY"  THEN  9726 

BEGIN  9727 

I = 1 9728 

WHILE  FLG1  = "Y"  AND  I LE  10  9729 

BEGIN  9730 

IF  I « 1 THEN  TREF  = TREF1  9731 

IF  I = 2 THEN  TREF  = TREF2  9732 

IF  I = 3 THEN  TREF  = TREF3  9733 

IF  I = 4 THEN  TREF  = TREF4  9734 

IF  I » 5 THEN  TREF  = TREF5  9735 

IF  I = 6 THEN  TREF  * TREF6  9736 

IF  I = 7 THEN  TREF  = TREF7  9737 

IF  I = 8 THEN  TREF  = TREF8  9738 

IF  I = 9 THEN  TREF  = TREF9  9739 

IF  I = 10  THEN  TREF  = TREF10  9740 

IF  TREF  NE  " " THEN  9741 

BEGIN  9742 
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FLG2  = "N" 

9743 

FOR  REFERENCES  WITH  REFERENCE  NUMBER  = TREF 

9744 

BEGIN 

9745 

FLG2  = "Y" 

9746 

END 

9747 

IF  FLG2  = "N"  THEN 

9748 

BEGIN 

9749 

FLG1  = ••N*' 

9750 

I MSG  = 5 

9751 

END 

9752 

END 

9753 

1 = 1 + 1 

9754 

END 

9755 

END 

9756 

IF  FLG1  = “Y"  THEN 

9757 

BEGIN 

9758 

IF  TCONTINUE1  NE  "Y”  AND 

9759 

TCONTINUE1  NE  "N"  THEN 

9760 

BEGIN 

9761 

FLG1  = "N" 

9762 

I MSG  = 6 

9763 

END 

9764 

END 

9765 

IF  FLG1  * “Y"  THEN 

9766 

BEGIN 

9767 

FLG2  = "N" 

9768 

IF  TSYSTEM  NE  " " THEN 

9769 

BEGIN 

9770 

FLG2  = "Y" 

9771 

JCNT  = 0 

9772 

FOR  SYSTEMS  WITH 

9773 

SYSTEM  = TSYSTEM 

9774 

BEGIN 

9775 

FLG3  = "Y" 

9776 

:SYS  MODIFY  1 

9777 

IF  FLG3  = "Y"  THEN  JCNT  = JCNT  + 

1 

9778 

END 

9779 

END 

9780 

IF  FLG2  = "N"  THEN 

9781 

BEGIN 

9782' 

JCNT  = 0 

9783 

FOR  SYSTEMS 

9784 

BEGIN 

9785 

FLG3  = "Y" 

9786 

: SYS  MODIFY  1 

9787 

IF  FLG3  = “Y"  THEN  JCNT  = JCNT  + 

1 

9788 

END 

9789 

END 

9790 

IF  JCNT  = 0 THEN 

9791 

BEGIN 

9792 

FLG1  = "N" 

9793 
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I MSG  = 7 9794 

END  9795 

END  9796 

END  9797 

END  9798 


9799 

9800 

9801 

9802 

9803 

9804 

9805 

9806 

9807 

9808 

9809 


IF  TC0NTINUE1  NE  "N"  THEN  98 io 

BEGIN  98ii 

TC0NTINUE2  * "Y"  98 12 

FLG2  = "N"  9813 

IF  TSYSTEM  NE  " " THEN  98 1 4 

BEGIN  9815 

FLG2  = "Y"  9816 

ICNT  = 0 9817 

FOR  SYSTEMS  WITH  98 is 

SYSTEM  = TSYSTEM  SORTED  BY  98 19 

SYSTEM  9820 

BEGIN  9821 

IF  TC0NTINUE2  = "Y"  THEN  9822 

BEGIN  9823 

FLG3  = “Y"  9824 

:SYS_M0DIFY_1  9825 

IF  FLG3  = "Y"  THEN  9826 

BEGIN  9827 

ICNT  = ICNT  + 1 9828 

:SYS_M0DIFY_2  9829 

END  9830 

END  9831 

END  9832 

END  9833 

IF  FLG2  = "N"  THEN  9834 

BEGIN  9835 

ICNT  = 0 9836 

FOR  SYSTEMS  SORTED  BY  SYSTEM  9837 

BEGIN  9838 

IF  TC0NTINUE2  = "Y"  THEN  9839 

BEGIN  9840 

FLG3  = "Y"  984i 

:SYS_M0DIFY_1  9842 

IF  FLG3  = "Y"  THEN  9843 

BEGIN  9844 


IF  TC0NTINUE1  IS  NOT  EQUAL  TO  “N\  THIS  SECTION  DISPLAYS  THE 
INDICATED  RECORDS  ONE  AT  A TIME  AND  ALLOWS  CORRECTIONS  TO  BE  MADE 
TO  ANY  OR  ALL  OF  THE  RECORDS.  THE  FIELD  SYSTEM  CANNOT  BE  CHANGED 
SINCE  THIS  FIELD  UNIQUELY  DEFINES  THE  SYSTEM. 
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ICNT  = ICNT  + 1 
:SYS_M0DIFY_2 
END 
END 
END 
END 
END 


IF  TCONTINUE1  IS  EQUAL  TO  "N",  A RESPONSE  IS  REQUESTED  TO  EITHER 
CONTINUE  THE  PROCEDURE  TO  MODIFY  SYSTEMS  OR  EXIT  TO  THE  MENU 


IF  TCONTINUE1  = "N"  THEN 
BEGIN 

PRINT  NEW_PAGE 
rCLRSCRN 

TCONTINUE1  = "X" 

WHILE  TCONTINUE1  NE  "Y"  AND 
TCONTINUE1  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

"Do  you  wish  to  continue  modifying",  SKIP  1, 
"SYSTEMS?",  SKIP  1 
TCONTINUE1  = FN$UPCASE(*. "Y  or  N") 

PRINT  " " 

END 

END 

END 

END-PROCEDURE 


9845 

9846 

9847 

9848 

9849 

9850 

9851 

9852 

9853 

9854 

9855 

9856 

9857 

9858 

9859 

9860 

9861 

9862 

9863 

9864 

9865 

9866 

9867 

9868 

9869 

9870 

9871 

9872 

9873 

9874 

9875 

9876 

9877 
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DEFINE  PROCEDURE  SYS_MODIFY_l 


9878 

9879 


THIS  SECTION  DETERMINES  IF  A GIVEN  RECORD  MATCHES  ALL  OF  THE  FIELDS 
ENTERED  ON  THE  FIND  SYSTEMS  FORM.  THE  VALUES  OF  THE  KEY  FIELD 
(SYSTEM)  IS  NOT  CHECKED  IN  THIS  SECTION  SINCE  THIS  VALUE  HAS  ALREADY 
BEEN  MATCHED  IN  THE  HFOR  ..."  STATEMENT  WHICH  ESTABLISHES  THE  RECORD 
STREAM. 


9880 

9881 

9882 

9883 

9884 

9885 

9886 

9887 

9888 

9889 


! 9890 

IF  TSYSNAME  NE  " " AND  989 i 

SYSTEM_NAME  NE  TSYSNAME  THEN  FLG3  = "N"  9892 

IF  TITEM1  NE  M H AND  9893 

ITEM1  NE  TITEM1  THEN  FLG3  = “N"  9894 

IF  TITEM2  NE  " " AND  9895 

ITEM2  NE  TITEM2  THEN  FLG3  = "N"  9896 

IF  TITEM3  NE  " " AND  9897 

ITEM3  NE  TITEM3  THEN  FLG3  = "N"  9898 

IF  TITEM4  NE  " " AND  9899 

ITEM4  NE  TITEM4  THEN  FLG3  = "N"  9900 

IF  TITEM5  NE  " " AND  9901 

ITEM5  NE  TITEM5  THEN  FLG3  = "N"  9902 

IF  TITEM6  NE  " " AND  9903 

ITEM6  NE  TITEM6  THEN  FLG3  = "N"  9904 

IF  TITEM7  NE  " " AND  9905 

ITEM7  NE  TITEM7  THEN  FLG3  = "N"  9906 

IF  TITEM8  NE  " " AND  9907 

ITEM8  NE  TITEM8  THEN  FLG3  = "N"  9908 

IF  TITEM9  NE  " " AND  9909 

ITEM9  NE  TITEM9  THEN  FLG3  = "N"  9910 

IF  TITEM10  NE  " - AND  99 n 

ITEM10  NE  TITEM10  THEN  FLG3  = "N"  99! 2 

IF  TITEM11  NE  " " AND  9913 

ITEM11  NE  TITEM11  THEN  FLG3  = "N"  9914 

IF  TITEM12  NE  " " AND  9915 

ITEM12  NE  TITEM12  THEN  FLG3  = "N"  991 6 

IF  TITEM13  NE  " " AND  9917 

ITEM13  NE  TITEM13  THEN  FLG3  = "N"  99 is 

IF  TITEM14  NE  " " AND  9919 

ITEM14  NE  TITEM14  THEN  FLG3  = “N"  9920 

IF  TITEM15  NE  " " AND  9921 

ITEM15  NE  TITEM15  THEN  FLG3  = "N"  9922 

IF  TREF1  NE  " " AND  9923 

REFERENCE1  NE  TREF1  THEN  FLG3  = "N"  9924 

IF  TREF2  NE  " " AND  9925 

REFERENCE2  NE  TREF2  THEN  FLG3  = "N"  9926 

IF  TREF3  NE  " " AND  9927 

REFERENCES  NE  TREF3  THEN  FLG3  = “N"  9928 
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IF  TREF4  NE  " • AND 

REFERENCE4  NE  TREF4  THEN  FLG3  = "N" 

IF  TREF5  NE  " " AND 

REFERENCES  NE  TREF5  THEN  FLG3  = "N" 

IF  TREF6  NE  " " AND 

REFERENCES  NE  TREF6  THEN  FLG3  = "N" 

IF  TREF7  NE  " " AND 

REFERENCE7  NE  TREF7  THEN  FLG3  = "N" 

IF  TREF8  NE  " " AND 

REFERENCES  NE  TREF8  THEN  FLG3  = "N" 

IF  TREF9  NE  ” " AND 

REFERENCE9  NE  TREF9  THEN  FLG3  = "N" 

IF  TREFIO  NE  " " AND 

REFERENCEIO  NE  TREFIO  THEN  FLG3  = "N" 
END-PROCEDURE 
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DEFINE  PROCEDURE  SYS_MODIFY_2  9944 

! 9945 

! 9946 

9947 

! 9948 

! THE  FIELDS  OF  THE  INCOMING  SYSTEM  RECORD  ARE  ASSIGNED  TO  VARIABLES  FOR  9949 

! DISPLAY  AND  MODIFICATION.  THE  FIELDS  SYSTEM  AND  9950 

! PROPAGATIONS_FILE_CREATED  ARE  NOT  ASSIGNED  TO  VARIABLES  SINCE  THESE  9951 


FIELDS  CANNOT  BE  MODIFIED. 


! | 9953 

! 9955 

TTSYSNAME  = SYSTEM_NAME  9956 

TTITEM1  * ITEM1  9957 

TTITEM2  = ITEM2  9958 

TTITEM3  = ITEM3  9959 

TTITEM4  = ITEM4  9960 

TTITEM5  = ITEM5  996 1 

TTITEM6  * ITEM6  9962 

TTITEM7  = ITEM7  9953 

TTITEM8  = ITEM8  9964 

TTITEM9  = ITEM9  9965 

TTITEM10  = ITEM10  9966 

TTITEM11  = ITEM11  9967 

TTITEM12  = ITEM12  9968 

TTITEM13  = ITEM13  9969 

TTITEM14  = ITEM14  9970 

TTITEM15  * ITEM15  9971 

TTREF1  = REFERENCE1  9972 

TTREF2  = REFERENCE2  9973 

TTREF3  = REFERENCE3  9974 

TTREF4  * REFERENCE4  9975 

TTREF5  = REFERENCES  9976 

TTREF6  = REFERENCES  9977 

TTREF7  * REFERENCE7  9978 

TTREF8  = REFERENCES  9979 

TTREF9  = REFERENCE9  9980 

TTREF10  = REFERENCE10  998 1 

! 9982 

! 9983 

! i 9985 


! LOOP  TO  DISPLAY  A SYSTEM  RECORD  USING  A TDMS  FORM,  RETRIEVE  DATA  FROM  9986 
! THE  FORM,  TEST  THE  INCOMING  INFORMATION  AND  REQUEST  CORRECTION  OF  9987 
! INVALID  DATA  9988 

! 9989 

I QQQ  1 

FLG4  = "N"  9992 
IMSG  = 8 9993 
WHILE  FLG4  = "N"  9994 
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BEGIN 


IF  I MSG  = 4 THEN  TMSG  = TMSG4 

1 1 * " 

TITEM  i 

ii  II 

IF  I MSG  = 5 THEN  TMSG  = TMSG5 

II  * " 

TREF  | 

H it 

IF  I MSG  = 8 THEN  TMSG  = TMSG8 
IF  I MSG  = 9 THEN  TMSG  = TMSG9 
IF  I MSG  = 10  THEN  TMSG  = TMSG10 


TMSG4A 

TMSG5A 


THIS  SECTION  DISPLAYS  THE  MODIFY  SYSTEMS  FORM  AND  RETRIEVES  THE 
DATA  ENTERED  ON  THE  FORM 


DISPLAY_FORM  SYSTEMS_MOD  FORM  IN 

DEV$206 : [BCDSSME2 . FORMS] FORMSLIB . RLB  USING 
BEGIN 

PUT_FORM  RECORD_NUMBER 
PUT_FORM  TOTAL_RECORDS 
PUT_FORM  SYSTEM 
PUT_FORM  SYSTEM_NAME 
PUT  FORM  ITEM  1 


PUT_FORM  ITEM_2 
PUTJORM  ITEMJ 
PUT  FORM  ITEM_4 
PUT~FORM  ITEM_5 
PUT_FORM  ITEM  6 
PUTJORM  ITEMJ 
PUT  FORM  ITEM_8 
PUTJORM  ITEM_9 
PUTJORM  ITEM_10 
PUT_FORM  ITEM_11 
PUT  FORM  ITEM_12 
PUTJORM  ITEM_13 
PUTJORM  ITEM_14 
PUT_FORM  ITEM_15 
PUT_FORM  REF_1 
PUT_FORM  REF_2 
PUT_FORM  REF_3 
PUT  FORM  REF~4 
PUT"FORM  REF ”5 
PUTJORM  REF_6 
PUTJORM  REFJ 
PUT_FORM  REFJ 
PUT  FORM  REFJ 
PUTJORM  REF_10 
IF  I MSG  = 8 THEN 
PUTJORM  CONTINUE 
IF  I MSG  NE  8 THEN 
PUT  FORM  CONTINUE 


ICNT 

JCNT 

SYSTEM 

TTSYSNAME 

TTITEM1 

TTITEM2 

TTITEM3 

TTITEM4 

TT ITEMS 

TTITEM6 

TTITEM7 

TTITEM8 

TTITEM9 

TTITEM10 

TTITEM11 

TTITEM12 

TTITEM13 

TTITEM14 

TTITEM15 

TTREF1 

TTREF2 

TTREF3 

TTREF4 

TTREF5 

TTREF6 

TTREF7 

TTREF8 

TTREF9 

TTREF10 

ii  y u 

TCONTINUE2 


9995 

9996 

9997 

9998 

9999 

10000 
10001 
10002 

10003 

10004 

10005 

10006 

10007 

10008 

10009 

10010 
1001  1 
10012 

10013 

10014 

10015 

10016 

10017 

10018 

10019 

10020 
10021 
10022 

10023 

10024 

10025 

10026 

10027 

10028 

10029 

10030 

10031 

10032 

10033 

10034 

10035 

10036 

10037 

10038 

10039 

10040 

10041 

10042 

10043 

10044 

10045 
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PUT  FORM  MESSAGE 
END  RETRIEVE  USING 
BEGIN 

= TMSG 

10046 

10047 

10048 

TTSYSNAME 

= 

GET  FORM 

SYSTEM  NAME 

10049 

TTITEM1 

= 

GET  FORM 

ITEM  1 

10050 

TTITEM2 

= 

GET  FORM 

ITEM  2 

10051 

TTITEM3 

= 

GET  FORM 

ITEM  3 

10052 

TTITEM4 

= 

GET  FORM 

ITEM  4 

10053 

TTITEM5 

= 

GET  FORM 

ITEM  5 

10054 

TTITEM6 

= 

GET  FORM 

ITEM  6 

10055 

TTITEM7 

= 

GET  FORM 

ITEM  7 

10056 

TTITEM8 

= 

GET  FORM 

ITEM  8 

10057 

TTITEM9 

= 

GET  FORM 

ITEM  9 

10058 

TTITEM10 

= 

GET  FORM 

ITEM  10 

10059 

TTITEM11 

= 

GET  FORM 

ITEM  11 

10060 

TTITEM12 

= 

GET  FORM 

ITEM  12 

10061 

TTITEM13 

= 

GET  FORM 

ITEM  13 

10062 

TTITEM14 

= 

GET  FORM 

ITEM  14 

10063 

TTITEM15 

= 

GET  FORM 

ITEM  15 

10064 

TTREF1 

= 

GET  FORM 

REF  1 

10065 

TTREF2 

= 

GET  FORM 

REF  2 

10066 

TTREF3 

= 

GET  FORM 

REF  3 

10067 

TTREF4 

= 

GET  FORM 

REF  4 

10068 

TTREF5 

= 

GET  FORM 

REF  5 

10069 

TTREF6 

= 

GET  FORM 

REF  6 

10070 

TTREF7 

= 

GET  FORM 

REF  7 

10071 

TTREF8 

= 

GET  FORM 

REF  8 

10072 

TTREF9 

= 

GET  FORM 

REF  9 

10073 

TTREF10 

= 

GET  FORM 

REF  10 

10074 

TC0NTINUE2 

= 

GET  FORM 

CONTINUE 

10075 

END  10076 


10077 

10078 

10079 

10080 
10081 
10082 

10083 

10084 

10085 


IF  TC0NTINUE2  NE  "A"  THEN  loose 

BEGIN  10087 

I = 1 10088 

WHILE  FN$STR_EXTRACT ( TTSYSNAME , I,  1)  = " " looas 

BEGIN  10090 

1=1+1  10091 

END  10092 

TTSYSNAME  = FN$STR_EXTRACT( TTSYSNAME,  I,  80  - I + 1)  10093 

END  10094 

! 10095 

! 10096 


IF  TC0NTINUE2  IS  NOT  EQUAL  TO  ',A,,>  ANY  LEADING  BLANKS  WHICH  WERE 
INADVERTENTLY  ENTERED  IN  TTSYSNAME  ARE  REMOVED 
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IF  TCONTINUE  IS  NOT  EQUAL  TO  "A”,  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TTSYSNAME  DOES  NOT  ALREADY  EXIST  IN  DOMAIN  SYSTEMS 

2.  ANY  OF  THE  VARIABLES  TITEM1  TO  TITEM15  WHICH  ARE  NOT 
BLANK  ARE  IN  FMEA_ITEM_NAME_TABLE 

3.  ANY  OF  THE  VARIABLES  TREF1  TO  TREF10  WHICH  ARE  NOT  BLANK 
ARE  IN  DOMAIN  REFERENCES 

5.  TCONTINUE2  IS  "Y",  "N"  OR  "A" 


FLG4  = “YH 

IF  TCONTINUE2  NE  "A"  THEN 
BEGIN 

IF  TTSYSNAME  NE  SYSTEM_NAME  THEN 
BEGIN 

HSYSTEM  = SYSTEM 

FOR  SYSTEMS  WITH  SYSTEM  NE  HSYSTEM 
IF  SYSTEM_NAME  = TTSYSNAME  THEN 
BEGIN 

FLG4  = "N" 

I MSG  = 9 
END 
END 

IF  FLG4  = "Y"  THEN 
BEGIN 
I = 1 


WHILE  FLG4 

= 

M Y 1 

1 AND 

I LE  15 

BEGIN 

IF 

I 

= 

1 

THEN 

TITEM 

= 

TTITEM1 

IF 

I 

= 

2 

THEN 

TITEM 

= 

TTITEM2 

IF 

I 

= 

3 

THEN 

TITEM 

= 

TTITEM3 

IF 

I 

= 

4 

THEN 

TITEM 

= 

TTITEM4 

IF 

I 

= 

5 

THEN 

TITEM 

= 

TTITEM5 

IF 

I 

= 

6 

THEN 

TITEM 

= 

TTITEM6 

IF 

I 

= 

7 

THEN 

TITEM 

= 

TTITEM7 

IF 

I 

= 

8 

THEN 

TITEM 

= 

TTITEM8 

IF 

I 

r 

9 

THEN 

TITEM 

= 

TTITEM9 

IF 

I 

r 

10 

THEN 

TITEM 

= 

TTITEM10 

IF 

I 

s 

11 

THEN 

TITEM 

= 

TTITEM11 

IF 

I 

= 

12 

THEN  TITEM 

= 

TTITEM12 

IF 

I 

= 

13  THEN 

TITEM 

= 

TTITEM13 

IF 

I 

s 

14 

THEN  TITEM 

s 

TTITEM14 

IF 

I 

= 

15  THEN 

TITEM 

s 

TTITEM15 

IF  TITEM  NE  " ' 

TITEM  NOT  IN  FMEA_ITEM_NAME_TABLE  THEN 
BEGIN 

FLG4  = "N" 

I MSG  = 4 


10097 

10098 

10099 

10100 
10101 
10102 

10103 

10104 

10105 

10106 

10107 

10108 

10109 

10110 
10111 
10112 

10113 

10114 
101  15 
10116 

10117 

10118 

10119 

10120 
10121 
10122 

10123 

10124 

10125 

10126 

10127 

10128 

10129 

10130 

10131 

10132 

10133 

10134 

10135 

10136 

10137 

10138 

10139 

10140 

10141 

10142 

10143 

10144 

10145 

10146 

10147 
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END 

1 = 1 + 1 
END 
END 

IF  FLG4  = "Y"  THEN 
BEGIN 
I = 1 

WHILE  FLG4  = "Y"  AND  I LE  10 
BEGIN 

IF  I = 1 THEN  TREF  = TTREF1 

IF  I = 2 THEN  TREF  = TTREF2 

IF  I = 3 THEN  TREF  = TTREF3 

IF  I = 4 THEN  TREF  = TTREF4 

IF  I = 5 THEN  TREF  = TTREF5 

IF  I = 6 THEN  TREF  = TTREF6 

IF  I = 7 THEN  TREF  = TTREF7 

IF  I = 8 THEN  TREF  = TTREF8 

IF  I = 9 THEN  TREF  = TTREF9 

IF  I = 10  THEN  TREF  = TTREF10 

IF  TREF  NE  " " THEN 
BEGIN 

FLG5  = "N" 

FOR  REFERENCES  WITH  REFERENCE_NUMBER  = TREF 
BEGIN 

FLG5  = "Y" 

END 

IF  FLG5  = "N"  THEN 
BEGIN 

FLG4  = "N" 

I MSG  = 5 
END 
END 

1 = 1 + 1 
END 
END 

IF  FLG4  = "Y"  THEN 
BEGIN 

IF  TC0NTINUE2  NE  "Y"  AND 

TC0NTINUE2  NE  "N"  AND 

TC0NTINUE2  NE  "A"  THEN 

BEGIN 

FLG4  = "N" 

I MSG  = 10 


10148 

10149 

10150 

10151 

10152 

10153 

10154 

10155 

10156 

10157 

10158 

10159 

10160 
10161 
10162 

10163 

10164 

10165 

10166 

10167 

10168 

10169 

10170 

10171 

10172 

10173 

10174 

10175 

10176 

10177 

10178 

10179 

10180 
10181 
10182 

10183 

10184 

10185 

10186 

10187 

10188 

10189 

10190 

10191 

10192 

10193 

10194 

10195 

10196 

10197 

10198 


END 


END 
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IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TTITEM1  TO  TTITEM15  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT 
BLANK  IS  TTITEM1,  THE  SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TTITEM2,  ETC. 


IF  TCONTINUE2  NE  "A"  THEN 
BEGIN 


TEMP  = TTITEM1 
TTITEM6 
TTITEM11 

TTITEM1 


END 


TTITEM2 
TTITEM7 
TTITEM12 

FNSSTR  EXTRACT (TEMP 
TTITEM2  = FN$STR~EXTRACT ( TEMP 
TTITEM3  = FN$STR_EXTRACT ( TEMP 
TTITEM4  = FNSSTR  EXTRACT (TEMP 
TT ITEMS  = FN$STR~EXTRACT(TEMP 
TTITEM6  = FN$STR_EXTRACT ( TEMP 
TTITEM7  = FN$STR_EXTRACT ( TEMP 
TTITEM8  * FN$STR_EXTRACT ( TEMP 
TTITEM9  = FN$STR_EXTRACT ( TEMP 
TTITEMIO  = FN$STR_EXTRACT ( TEMP 
TTITEM11  = FN$STR_EXTRACT ( TEMP 
TTITEM12  = FNSSTR  EXTRACT (TEMP 
TTITEM13  = FNSSTR "EXTRACT ( TEMP 
TTITEM14  = FN$STR_EXTRACT ( TEMP 
TTITEM15  = FNSSTR  EXTRACT (TEMP 


TTITEM3 
TTITEM8 
TTITEM13 
, 1,  4) 

, 5,  4) 

, 9,  4) 

, 13,  4) 

, 17,  4) 

, 21,  4) 

, 25,  4) 

, 29,  4) 

, 33,  4) 

, 37,  4) 

, 41,  4) 

, 45,  4) 

, 49,  4) 

, 53,  4) 

, 57,  4) 


TTITEM4  1 

TTITEM5 

TTITEM9  | 

TTITEMIO 

TTITEM14  | 

TTITEM15 

IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TTREF1  TO  TTREFIO  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT 
BLANK  IS  TTREF1,  THE  SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TTREF2,  ETC. 
ETC. 


IF  TC0NTINUE2  NE  "A"  THEN 
BEGIN 


TEMP  = TTREF1  | 

TTREF2 

TTREF3 

TTREF4  1 

TTREF6 

TTREF7 

TTREF8 

TTREF9  | 

TTREF1  = FNSSTR  EXTRACT (TEMP,  1,  5) 
TTREF2  = FN$STR~EXTRACT ( TEMP , 6,  5) 
TTREF3  = FN$STR_EXTRACT ( TEMP , 11,  5) 
TTREF4  = FN$STR_EXTRACT ( TEMP , 16,  5) 
TTREF5  = FN$STR_EXTRACT ( TEMP , 21,  5) 
TTREF6  = FN$STR_EXTRACT ( TEMP , 26,  5) 
TTREF7  = FN$STR_EXTRACT ( TEMP , 31,  5) 
TTREF8  = FN$STR_EXTRACT ( TEMP , 36,  5) 
TTREF9  = FNSSTR  EXTRACT (TEMP,  41,  5) 


TTREF5 

TTREFIO 


II 


10199 

10200 
10201 
10202 

10203 

10204 

10205 

10206 

10207 

10208 

10209 

10210 
10211 
10212 

10213 

10214 

10215 

10216 

10217 

10218 

10219 

10220 
10221 
10222 

10223 

10224 

10225 

10226 

10227 

10228 

10229 

10230 

10231 

10232 

10233 

10234 

10235 

10236 

10237 

10238 

10239 

10240 

10241 

10242 

10243 

10244 

10245 

10246 

10247 

10248 

10249 
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TTREF10  = FN$STR_EXTRACT ( TEMP , 46,  5) 
END 


IF  TCONTINUE2  IS  NOT  EQUAL  TO  "A"  AND  NEW  DATA  HAS  BEEN  ENTERED  IN  AT 
LEAST  ONE  OF  THE  RECORD  FIELDS,  THIS  SECTION  PRINTS  THE  INITIAL  RECORD 
DATA  TO  THE  LOG  FILE,  MODIFIES  THE  RECORD  AND  PRINTS  THE  MODIFIED 
RECORD  DATA  TO  THE  LOG  FILE  (HIGHLIGHTING  THE  CHANGED  FIELDS) 


IF  TCONTINUE2  NE  "A"  AND 
( SYSTEM _NAME  NE  TTSYSNAME  OR 


ITEMl  NE  TTITEM1 

OR 

ITEM2  NE  TTITEM2 

OR 

ITEM3 

NE 

TTITEM3 

OR 

ITEM4  NE  TTITEM4 

OR 

ITEMS  NE  TTITEM5 

OR 

ITEM6 

NE 

TTITEM6 

OR 

ITEM7  NE  TTITEM7 

OR 

ITEM8  NE  TTITEM8 

OR 

ITEM9 

NE 

TTITEM9 

OR 

ITEM10  NE  TTITEM10 

OR 

ITEM11  NE  TTITEM11 

OR 

ITEM12 

NE 

TTITEM12 

OR 

ITEM13  NE  TTITEM13 

OR 

ITEM14  NE  TTITEM14 

OR 

ITEM15 

NE 

TTITEM15 

OR 

REFERENCE1  NE  TTREF1 

OR 

REFERENCE2  NE  TTREF2 

OR 

REFERENCE3  NE  TTREF3 

OR 

REFERENCE4  NE  TTREF4 

OR 

REFERENCES  NE  TTREF5 

OR 

REFERENCE6  NE  TTREF6 

OR 

REFERENCE7  NE  TTREF7 

OR 

REFERENCES  NE  TTREF8 

OR 

REFERENCE9  NE  TTREF9 

OR 

REFERENCE10  NE  TTREF10) 

THEN 

BEGIN 


THIS  SECTION  PRINTS  THE  INITIAL  RECORD  DATA  TO  THE  SESSION  LOG 
FILE 


KCNT  = KCNT  + 1 
PRINT  NEW_PAGE,  SKIP  3, 

COL  1,  "RECORD  NO.  ",  SPACE  0, 

KCNT  (-)  USING  9(4),  SKIP  1, 

h================================«======h5  space  0> 

,,=============s==s===sss:ss==s============,,  SKIp  1# 

.,SSSSSSSSSSSSSSSSSSS2SSSSSS==SSSSSS55SSSS),  SPACE  0> 

m========================s===============„  SKIp  2 

COL  6,  "DATE_CREATED  SPACE  1, 

DATE  CREATED  (-)  USING  X(23),  SKIP  1, 

COL  6,  "SYSTEM  SPACE  1, 

SYSTEM  (-)  USING  X(4),  SKIP  1, 

COL  6,  "SYSTEM JAME  SPACE  1, 

SYSTEM_NAME  (-)  USING  T(52),  SKIP  1, 

COL  6,  "FMEAJTEMS 

COL  32,  " 1)",  SPACE  1,  ITEM1  (-)  USING  X(4), 


10250 

10251 

10252 

10253 

10254 

10255 

10256 

10257 

10258 

10259 

10260 
10261 
10262 

10263 

10264 

10265 

10266 

10267 

10268 

10269 

10270 

10271 

10272 

10273 

10274 

10275 

10276 

10277 

10278 

10279 

10280 
10281 
10282 

10283 

10284 

10285 

10286 

10287 

10288 

10289 

10290 

10291 

10292 

10293 

10294 

10295 

10296 

10297 

10298 

10299 

10300 
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COL  52,  " 6)",  SPACE  1,  ITEM6  (-)  USING  X(4),  10301 

COL  72,  ”11)",  SPACE  1,  ITEM11  (-)  USING  X(4),  SKIP  1,  10302 

COL  32,  " 2)",  SPACE  1,  ITEM2  (-)  USING  X(4),  10303 

COL  52,  " 7)",  SPACE  1,  ITEM7  (-)  USING  X(4),  10304 

COL  72,  "12)",  SPACE  1,  ITEM12  (-)  USING  X(4),  SKIP  1,  10305 

COL  32,  " 3)",  SPACE  1,  ITEM3  (-)  USING  X(4),  10306 

COL  52,  " 8)",  SPACE  1,  ITEM8  (-)  USING  X(4),  10307 

COL  72,  "13)",  SPACE  1,  ITEM13  (-)  USING  X(4),  SKIP  1,  i0308 

COL  32,  " 4)",  SPACE  1,  ITEM4  (-)  USING  X(4),  10309 

COL  52,  " 9)",  SPACE  1,  ITEM9  (-)  USING  X(4),  10310 

COL  72,  "14)",  SPACE  1,  ITEM14  (-)  USING  X(4),  SKIP  1,  10311 

COL  32,  " 5)",  SPACE  1,  ITEM5  (-)  USING  X(4),  10312 

COL  52,  "10)",  SPACE  1,  ITEM10  (-)  USING  X(4),  10313 

COL  72,  "15)",  SPACE  1,  ITEM15  (-)  USING  X(4),  SKIP  1,  10314 

COL  6,  "REFERENCES  :",  10315 

COL  32,  " 1)",  SPACE  1,  REFERENCE1  (-)  USING  X(5),  1031 6 

COL  52,  " 5)",  SPACE  1,  REFERENCE5  (-)  USING  X(5),  10317 

COL  72,  " 9)",  SPACE  1,  REFERENCE9  (-)  USING  X(5),  SKIP  1,  10318 

COL  32,  " 2)",  SPACE  1,  REFERENCE2  (-)  USING  X(5),  10319 

COL  52,  " 6)",  SPACE  1,  REFERENCE6  (-)  USING  X(5),  10320 

COL  72,  "10)",  SPACE  1,  REFERENCE10  (-)  USING  X(5),  SKIP  1,  10321 

COL  32,  " 3)",  SPACE  1,  REFERENCE3  (-)  USING  X(5),  10322 

COL  52,  " 7)",  SPACE  1,  REFERENCE7  (-)  USING  X(5),  SKIP  1,  10323 

COL  32,  " 4)";  SPACE  1,  REFERENCE4  (-)  USING  X(5),  10324 

COL  52,  " 8)",  SPACE  1,  REFERENCES  (-)  USING  X(5),  SKIP  1,  10325 

COL  6,  " PROPAGATIONS_F I LE_  ",  SKIP  1,  10326 

COL  6,  " CREATED  :",  SPACE  1,  10327 

PROP AGAT I ONS_F I L E_C REATED  (-)  USING  X(3),  SKIP  1,  10328 

COL  6,  " DATE_LAST_MOD I F I ED  :",  SPACE  1,  10329 

DATE_LAST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  10330 

COL  6,  "MODIFYING_PROCEDURE  :",  SPACE  1,  10331 


MODIFYING_PROCEDURE  (-)  USING  X(20)  10332 

10333 

10334 

10335 

10336 

10337 

10338 

10339 

10340 

10341 

10342 

10343 

10344 

10345 

10346 

10347 

10348 

10349 

10350 

10351 


THIS  SECTION  STORES  THE  INITIAL  RECORD  VALUES  FOR  USE  IN 
HIGHLIGHTING  THE  FIELDS  WHICH  HAVE  BEEN  MODIFIED 


HDCREATED 

= 

DATE  CREATED 

HSYSTEM 

SYSTEM 

HSYSNAME 

= 

SYSTEM  NAME 

HITEM1 

= 

ITEM1 

HITEM2 

= 

ITEM2 

HITEM3 

= 

ITEM3 

HITEM4 

= 

ITEM4 

HITEM5 

= 

ITEM5 

HITEM6 

= 

ITEM6 

HITEM7 

= 

ITEM7 
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HITEM8 

= ITEM8 

10352 

HITEM9 

= ITEM9 

10353 

HITEM10 

= ITEM10 

10354 

HITEM11 

= ITEM11 

10355 

HITEM12 

= ITEM12 

10356 

HITEM13 

= ITEM13 

10357 

HITEM14 

= ITEM14 

10358 

HITEM15 

= ITEM15 

10359 

HREF1 

= REFERENCE1 

10360 

HREF2 

= REFERENCE2 

10361 

HREF3 

= REFERENCE3 

10362 

HREF4 

= REFERENCE4 

10363 

HREF5 

= REFERENCES 

10364 

HREF6 

= REFERENCES 

10365 

HREF7 

= REFERENCE7 

10366 

HREF8 

= REFERENCES 

10367 

HREF9 

= REFERENCE9 

10368 

HREF10 

= REFERENCE10 

10369 

HFIPCREATED 

= PROPAGATIONS  FILE  CREATED 

10370 

HDLASTMOD 

= DATE  LAST  MODIFIED 

10371 

HMODPROC 

= MODIFYING  PROCEDURE 

10372 

10373 

10374 

10375 


THIS  SECTION  MODIFIES 

THE  MODULE  RECORD  USING  THE  VERIFIED  DATA 

10377 

ENTERED  ON  THE  MODIFY 

MODULES  FORM 

10378 

10379 

1 0380 

10381 

CAL  = "NOW" 

10382 

MODIFY  USING 

10383 

BEGIN 

10384 

SYSTEM  NAME 

= TTSYSNAME 

10385 

ITEM1 

= TTITEM1 

10386 

ITEM2 

= TTITEM2 

10387 

ITEM3 

= TTITEM3 

10388 

ITEM4 

= TTITEM4 

10389 

ITEMS 

= TTITEM5 

10390 

ITEM6 

= TTITEM6 

10391 

ITEM7 

= TTITEM7 

10392 

ITEM8 

= TTITEM8 

10393 

ITEM9 

= TTITEM9 

10394 

ITEM10 

= TTITEM10 

10395 

ITEM11 

= TTITEM11 

10396 

ITEM12 

= TTITEM12 

10397 

ITEM13 

= TTITEM13 

10398 

ITEM14 

= TTITEM14 

10399 

ITEM15 

= TTITEM15 

10400 

REFERENCE1 

= TTREF1 

10401 

REFERENCE2 

= TTREF2 

10402 
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REFERENCE3  = TTREF3  10403 

REFERENCE4  = TTREF4  10404 

REFERENCES  = TTREF5  10405 

REFERENCES  = TTREF6  10406 

REFERENCE7  = TTREF7  10407 

REFERENCES  = TTREF8  i0408 

REFERENCES  = TTREF9  10409 

REFERENCE10  = TTREF10  10410 

D ATE_LAST_MOD I F I ED  = CAL  10411 

MOD I FY I NG_PROCEDURE  = "SYS_MODIFY"  10412 

END  10413 

10414 

10415 


10417 

THIS  SECTION  PRINTS  THE  MODIFIED  RECORD  DATA  TO  THE  SESSION  LOG  i04ie 

FILE  AND  HIGHLIGHTS  THE  FIELDS  WHICH  CONTAIN  NEW  INFORMATION  i04is 

10420 

10422 

FLG4  = MN"  10423 

IF  HITEM1  = ITEM1  AND  HITEM2  = ITEM2  AND  HITEM3  = ITEM3  AND  10424 

HITEM4  = ITEM4  AND  H ITEMS  = ITEM5  AND  HITEM6  = ITEM6  AND  10425 

HITEM7  = ITEM7  AND  HITEM8  = ITEM8  AND  HITEM9  = ITEM9  AND  10426 

HITEM10  = ITEM10  AND  HITEM11  = ITEM11  AND  HITEM12  = ITEM12  AND  10427 

HITEM13  = ITEM13  AND  HITEM14  = ITEM14  AND  HITEM15  = ITEM15  THEN  i0428 


FLG4  = "Y"  10429 

FLG5  = "N"  10430 

IF  HREF1  = REFERENCE1  AND  HREF2  = REFERENCE2  AND  10431 

HREF3  = REFERENCES  AND  HREF4  = REFERENCE4  AND  10432 

HREF5  = REFERENCES  AND  HREF6  = REFERENCES  AND  10433 

HREF7  = REFERENCE7  AND  HREF8  = REFERENCE8  AND  10434 

HREF9  = REFERENCE9  AND  HREF10  = REFERENCE10  THEN  10435 

FLG5  = "Y"  10436 

PRINT  SKIP  1,  10437 

COL  1,  "========================================',  SPACE  0,  10438 

••  = Sr  = S==S  = S = S»S::=  = = r = SSSr===  = Sr=S=SSSSSS»>  SKIP  2,  10439 

COL  1,  CHOICE  10440 

DATE_CREATED  = HDCREATED  THEN  " " 10441 

ELSE  "***"  10442 

END_CHOICE,  10443 

SPACE  2,  "DATE_CREATED  SPACE  1,  10444 

DATE_CREATED  (-)  USING  X(23),  SKIP  1,  10445 

COL  1,  CHOICE  10446 

SYSTEM  = HSYSTEM  THEN  " " 10447 

ELSE  "***"  10448 

END_CHOICE,  10449 

SPACE  2,  "SYSTEM  :\  SPACE  1,  10450 

SYSTEM  (-)  USING  X(4),  SKIP  1,  i045i 

COL  1,  CHOICE  10452 

SYSTEMJAME  = HSYSNAME  THEN  " " 10453 
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ELSE  10454 

END_CHOICE,  10455 

SPACE  2,  "SYSTEM_NAME  :\  SPACE  1,  10456 

SYSTEMJAME  (-)  USING  T(52),  SKIP  1,  10457 

COL  1,  CHOICE  10458 

FLG4  = "Y"  THEN  " " 10459 

ELSE  "***"  10460 

END__CHOICE  , 10461 

SPACE  2,  "FMEAJTEMS  10462 

COL  29,  CHOICE  10463 

ITEM1  = HITEM1  THEN  " " 10464 

ELSE  "***"  10465 

END_CHOICE,  SPACE  0,  - 1)",  SPACE  1,  10466 

ITEM1  (-)  USING  X(4),  10467 

COL  48,  CHOICE  i0468 

ITEM6  = HITEM6  THEN  " " 10469 

ELSE  "***"  10470 

END_CHOICE,  SPACE  1,  " 6)",  SPACE  1,  10471 

ITEM6  (-)  USING  X(4),  10472 

COL  68,  CHOICE  10473 

ITEM11  = HITEM11  THEN  " " 10474 

ELSE  "***"  10475 

END_CHOICE,  SPACE  1,  "11)",  SPACE  1,  10476 

ITEM11  (-)  USING  X(4),  10477 

COL  29,  CHOICE  10478 

ITEM2  = HITEM2  THEN  " " 10479 

ELSE  "***"  10480 

END_CHOICE,  SPACE  0,  " 2)",  SPACE  1,  i048i 

ITEM2  (-)  USING  X(4),  10482 

COL  48,  CHOICE  10483 

ITEM7  = HITEM7  THEN  " " 1 0484 

ELSE  "***"  10485 

END_CHOICE,  SPACE  1,  " 7)",  SPACE  1,  10486 

ITEM7  (-)  USING  X(4),  10487 

COL  68,  CHOICE  i04S8 

ITEM12  = HITEM12  THEN  " " 10489 

ELSE  "***"  10490 

END_CHOICE,  SPACE  1,  "12)",  SPACE  1,  10491 

ITEM12  (-)  USING  X(4),  10492 

COL  29,  CHOICE  10493 

ITEM3  = HITEM3  THEN  " " 10494 

ELSE  "***"  10495 

END_CHOICE,  SPACE  0,  " 3)",  SPACE  1,  10496 

ITEM3  (-)  USING  X(4),  10497 

COL  48,  CHOICE  i0498 

ITEM8  = HITEM8  THEN  " " 10499 

ELSE  "***"  10500 

END_CHOICE,  SPACE  1,  " 8)",  SPACE  1,  10501 

ITEM8  (-)  USING  X(4),  10502 

COL  68,  CHOICE  10503 

ITEM13  = HITEM13  THEN  " " 10504 
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ELSE  "***"  10505 

END_CHOICE,  SPACE  1,  "13) \ SPACE  1,  losoe 

ITEM13  (-)  USING  X(4),  ioso? 

COL  29,  CHOICE  iosos 

ITEM4  = HITEM4  THEN  " " iosos 

ELSE  "***"  10510 

END_CHOICE,  SPACE  0,  " 4)",  SPACE  1,  10511 

ITEM4  (-)  USING  X(4),  10512 

COL  48,  CHOICE  10513 

ITEM9  = HITEM9  THEN  " " iosi4 

ELSE  "***"  10515 

END_CHOICE,  SPACE  1,  " 9)",  SPACE  1,  10516 

ITEM9  (-)  USING  X(4),  iosi7 

COL  68,  CHOICE  i05is 

ITEM14  = HITEM14  THEN  " " 10519 

ELSE  "***"  10520 

END_CHOICE,  SPACE  1,  "14)",  SPACE  1,  10521 

ITEM14  (-)  USING  X(4),  10522 

COL  29,  CHOICE  10523 

ITEMS  = H ITEMS  THEN  " " 10524 

ELSE  "***"  10525 

END_CHOICE,  SPACE  0,  " 5)",  SPACE  1,  10526 

ITEMS  (-)  USING  X( 4) , 10527 

COL  48,  CHOICE  1052s 

ITEM10  = HITEM10  THEN  " " 10529 

ELSE  "***"  10530 

END_CHOICE,  SPACE  1,  "10)",  SPACE  1,  10531 

ITEM10  (-)  USING  X(4) , 10532 

COL  68,  CHOICE  10533 

ITEM15  = HITEM15  THEN  " " 10534 

ELSE  "***"  10535 

END_CHOICE,  SPACE  1,  "15)",  SPACE  1,  10536 

ITEM15  (-)  USING  X(4),  10537 

COL  1,  CHOICE  10538 

FLG5  = "Y"  THEN  " " 10539 

ELSE  "***"  10540 

END_CHOICE,  10541 

SPACE  2,  "REFERENCES  :\  10542 

COL  29,  CHOICE  10543 

REFERENCE1  = HREF1  THEN  " " 10544 

ELSE  "***"  10545 

END_CHOICE,  SPACE  0,  " 1)",  SPACE  1,  10546 

REFERENCE1  (-)  USING  X(5),  10547 

COL  48,  CHOICE  i0548 

REFERENCES  = HREF5  THEN  " " 10549 

ELSE  "***"  10550 

END_CHOICE,  SPACE  1,  " 5)",  SPACE  1,  10551 

REFERENCES  (-)  USING  X(5),  10552 

COL  68,  CHOICE  10553 

REFERENCE9  = HREF9  THEN  " " 10554 

ELSE  "***"  10555 
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END_CHOICE,  SPACE  1,  " 9)",  SPACE  1,  iossa 

REFERENCE9  (-)  USING  X(5),  10557 

COL  29,  CHOICE  10558 

REFERENCE2  = HREF2  THEN  " " 10559 

ELSE  "***"  10560 

END_CHOICE,  SPACE  0,  " 2)",  SPACE  1,  i056i 

REFERENCE2  (-)  USING  X(5),  10562 

COL  48,  CHOICE  10563 

REFERENCE6  = HREF6  THEN  " " iossa 

ELSE  "***"  10565 

END_CHOICE,  SPACE  1,  " 6)",  SPACE  1,  10566 

REFERENCE6  (-)  USING  X(5),  10567 

COL  68,  CHOICE  loses 

REFERENCE10  = HREF10  THEN  " " 10569 

ELSE  "***"  10570 

END_CHOICE,  SPACE  1,  "10)",  SPACE  1,  10571 

REFERENCE10  (-)  USING  X(5),  10572 

COL  29,  CHOICE  10573 

REFERENCES  = HREF3  THEN  11  " 10574 

ELSE  "***"  10575 

END_CHOICE,  SPACE  0,  " 3)",  SPACE  1,  10576 

REFERENCES  (-)  USING  X(5),  10577 

COL  48,  CHOICE  10578 

REFERENCE7  = HREF7  THEN  " " * 10579 

ELSE  "***"  10580 

END_CHOICE,  SPACE  1,  " 7)",  SPACE  1,  iossi 

REFERENCE7  (-)  USING  X(5),  i0582 

COL  29,  CHOICE  10533 

REFERENCE4  = HREF4  THEN  " " ioss4 

ELSE  "***"  10585 

END_CHOICE,  SPACE  0,  " 4)",  SPACE  1,  10586 

REFERENCE4  (-)  USING  X(5),  ioss7 

COL  48,  CHOICE  iossa 

REFERENCES  * HREF8  THEN  " " iossa 

ELSE  "***"  10590 

END  CHOICE,  SPACE  1,  " 8)",  SPACE  1,  10591 

REFERENCES  (-)  USING  X(5),  10592 

COL  1,  CHOICE  10593 

PROPAGAT I ONS_F I LE_CREATED  = HFIPCREATED  THEN  " " 10594 

ELSE  "***"  10595 

END_CHOICE,  10596 

SPACE  2,  "PROPAGATIONS_FILE_  ",  SKIP  1,  10597 

COL  6,  " CREATED  SPACE  1,  10598 

PROPAGATIONS_FILE_CREATED  (-)  USING  X(3),  SKIP  1,  10599 

COL  1,  CHOICE  10600 

DATE_LAST_MOD I F I ED  = HDLASTMOD  THEN  " " ioeoi 

ELSE  "***"  10602 

END_CHOICE,  10603 

SPACE  2,  "DATE_LAST_MODIFIED  SPACE  1,  10604 

DATE_L AST_MOD I F I ED  (-)  USING  X(23),  SKIP  1,  10605 

COL  1,  CHOICE  106O6 
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MOD  I FY I NG_PROCEDURE  = HMODPROC  THEN  n 11 
ELSE  "***'* 

END_CHOICE, 

SPACE  2,  "MODIFYING_PROCEDURE  :\  SPACE  1, 

MOD  I F Y I NG_PROCEDURE  (-)  USING*  X(20) , SKIP  2, 
COL  1,  =======================================-  , SPACE  0, 

1========================================i1  SKIp  x 

ll========================================.1  SPACE  o 


:BELL 

END 


IF  TC0NTINUE2  IS  EQUAL  TO  HA\  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  MODIFIED.  THIS 
MESSAGE  WILL  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TC0NTINUE2  = "A"  THEN 
BEGIN 

PRINT  NEW_PAGE,  SKIP  3, 

COL  1,  ’========================================",  SPACE  0, 

========================================,  SKIP  12, 

COL  9 n *********************************"  SKIP  2 
COL  9!  "*****  RECORD  NOT  MODIFIED  *****\  SKIP  l\ 

COL  9 "*********************************"  SKIP  12 

COL  l!  ========================================\  SPACE  0, 


10607 

10608 

10609 

10610 
10611 
10612 

10613 

10614 

10615 

10616 

10617 

10618 

10619 

10620 
10621 
10622 

10623 

10624 

10625 

10626 

10627 

10628 

10629 

10630 

10631 

10632 

10633 

10634 

10635 

10636 

10637 


END 

END-PROCEDURE 


10638 

10639 
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DEFINE  PROCEDURE 
! 

| 

SYS_STORE 

10640 

10641 

10642 

J 

1 0643 

10644 

! VARIABLES  ASSOCIATED  WITH  SYSTEM  AND  SYSTEM_NAME 

10645 

j 

10646 

DECLARE  TSYSTEM 

PIC  X(4). 

1 0647 
10648 

DECLARE  TSYSNAME 

PIC  X(80). 

10649 

J 

10650 

i 

10651 

i 

1 0652 

10653 

! VARIABLES  ASSOCIATED  WITH  FMEA  ITEMS 

10654 

1 

10655 

I 

1 0656 

10657 

DECLARE  TITEM1 

PIC  X(4) . 

10658 

DECLARE  TITEM2 

PIC  X(4) . 

10659 

DECLARE  TITEM3 

PIC  X(4) . 

10660 

DECLARE  TITEM4 

PIC  X(4) . 

10661 

DECLARE  T ITEMS 

PIC  X(4) . 

10662 

DECLARE  TITEM6 

PfC  X(4) . 

10663 

DECLARE  TITEM7 

PIC  X(4) . 

10664 

DECLARE  TITEM8 

PIC  X(4) . 

10665 

DECLARE  TITEM9 

PIC  X(4) . 

10666 

DECLARE  TITEMIO 

PIC  X(4) . 

10667 

DECLARE  TITEM11 

PIC  X(4) . 

10668 

DECLARE  TITEM12 

PIC  X(4) . 

10669 

DECLARE  TITEM13 

PIC  X(4) . 

10670 

DECLARE  TITEM14 

PIC  X(4) . 

10671 

DECLARE  TITEM15 

PIC  X(4) . 

10672 

DECLARE  TTITEM 

PIC  X(4) . 

10673 

i 

10674 

j 

10675 

j 

1 

1 0676 

10677 

! VARIABLES  ASSOCIATED  WITH  REFERENCES 

10678 

! 

J 

10679 

i nAfln 

| 

1 UDoU 
10681 

DECLARE  TREF1 

PIC  X(5). 

10682 

DECLARE  TREF2 

PIC  X(5). 

10683 

DECLARE  TREF3 

PIC  X( 5) . 

10684 

DECLARE  TREF4 

PIC  X(5). 

10685 

DECLARE  TREF5 

PIC  X( 5) . 

10686 

DECLARE  TREF6 

PIC  X(5) . 

10687 

DECLARE  TREF7 

PIC  X(5). 

10688 

DECLARE  TREF8 

PIC  X( 5) . 

10689 

DECLARE  TREF9 

PIC  X(5) . 

10690 
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DECLARE  TREF10 

PIC  X(5) . 

DECLARE  TTREF 

i 

» 

PIC  X(5) . 

♦ 

i 

! VARIABLE  ASSOCIATED  WITH  PROCESSING  OF  INPUTS  FOR  FMEA  ITEMS  AND 

! REFERENCES 
! 

| 

DECLARE  TEMP 
» 
t 

PIC  X(60) . 

j 

! VARIABLES  USED  AS  FLAGS  OR  CONDITION  INDICATORS 
| 

j 

DECLARE  TCONTINUE 

PIC  X(l). 

DECLARE  I MSG 

PIC  9(2). 

DECLARE  FLG1 

PIC  X(l). 

DECLARE  FLG2 

j 

j 

PIC  X(l). 

1 

! VARIABLES  USED  TO  STORE  MESSAGES  FOR  DISPLAY  ON  THE  TDMS  FORM 

i 

j 

DECLARE  TMSG 

PIC  X(80) . 

DECLARE  TMSG1 

PIC  X ( 80 ) . 

DECLARE  TMSG2 

PIC  X ( 80 ) . 

DECLARE  TMSG2A 

PIC  X ( 80 ) . 

DECLARE  TMSG3 

PIC  X(80) . 

DECLARE  TMSG4 

PIC  X(80) . 

DECLARE  TMSG4A 

PIC  X ( 80 ) . 

DECLARE  TMSG5 

PIC  X(80) . 

DECLARE  TMSG5A 

PIC  X(80) . 

DECLARE  TMSG6 
1 
» 

PIC  X(80) . 

\ 

! VARIABLES  USED  AS  COUNTERS 
» 

10691 

10692 

10693 

10694 

10695 

10696 

10697 

10698 

10699 

10700 

10701 

10702 

10703 

10704 

10705 

10706 

10707 

10708 

10709 

10710 
1071  1 

10712 

10713 

10714 

10715 

10716 

10717 

10718 

10719 

10720 

10721 

10722 

10723 

10724 

10725 

10726 

10727 

10728 

10729 

10730 

10731 

10732 

10733 

10734 

10735 

10736 

10737 

10738 

10739 

10740 

10741 


DECLARE  ICNT  PIC  9(4) 
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DECLARE  I PIC  9(4). 


VARIABLE  USED  TO  OBTAIN  CURRENT  DATE  AND  TIME  FROM  DATATRIEVE 


DECLARE  CAL  USAGE  DATE 

EDIT_STRING  X(23). 


READY  THE  APPROPRIATE  DOMAINS,  INITIALIZE  THE  MESSAGE  VARIABLES  AND 
INITIALIZE  THE  COUNTER  (ICNT)  USED  FOR  NUMBERING  THE  LOG  FILE  RECORDS 


SET  ABORT 

READY  SYSTEMS  SHARED  WRITE 

READY  REFERENCES  SHARED  READ 
READY  SYSTEMS JORM  SHARED  READ 

TMSG1  = “ENTER  DATA  IN  APPROPRIATE  FIELDS  AND  PRESS  RETURN  KEY" 

TMSG2  = “SYSTEM  IS  NOT  VALID 

TMSG2A  = “ALREADY  EXISTS  IN  DOMAIN  SYSTEMS" 

TMSG3  = “SYSTEM  NAME  IS  NOT  VALID  - ALREADY  EXISTS  IN  DOMAIN  SYSTEMS" 
TMSG4  = "FMEA  ITEM  IS  NOT  VALID 
TMSG4A  = “NOT  IN  FMEA JTEMJAMEJ ABLE" 

TMSG5  = “REFERENCE  DOCUMENT  IS  NOT  VALID 
TMSG5A  = "DOES  NOT  EXIST  IN  DOMAIN  REFERENCES" 

TMSG6  = “CONTINUE  IS  NOT  VALID  - MUST  BE  Y,  N OR  A“ 

ICNT  =0 


PRIMARY  LOOP  TO  STORE  SYSTEMS 

THIS  LOOP  ENCOMPASSES  THE  FOLLOWING  FUNCTIONS: 

1.  LOOP  TO  REQUEST  INPUT  DATA,  TEST  VALUES  AND  PROMPT  FOR 
CORRECTION  OF  INVALID  INFORMATION 

2.  IF  TCONTINUE  NE  “A",  SECTION  TO  REARRANGE  THE  VARIABLES 
ASSOCIATED  WITH  FMEAJTEMS 

3.  IF  TCONTINUE  NE  "A",  SECTION  TO  REARRANGE  THE  VARIABLES 
ASSOCIATED  WITH  REFERENCES 

4.  IF  TCONTINUE  NE  "A",  SECTION  TO  STORE  RECORD  IN  DOMAIN  SYSTEMS 
AFTER  VALIDATION  TESTS  HAVE  BEEN  PASSED 

5.  IF  TCONTINUE  NE  “A",  SECTION  TO  PRINT  DATA  STORED  IN  DOMAIN 
SYSTEMS  FOR  INCLUSION  IN  THE  SESSION  LOG  FILE 


10742 

10743 

10744 

10745 

10746 

10747 

10748 

10749 

10750 

10751 

10752 

10753 

10754 

10755 

10756 

10757 

10758 

10759 

10760 

10761 

10762 

10763 

10764 

10765 

10766 

10767 

10768 

10769 

10770 

10771 

10772 

10773 

10774 

10775 

10776 

10777 

10778 

10779 

10780 

10781 

10782 

10783 

10784 

10785 

10786 

10787 

10788 

10789 

10790 

10791 

10792 
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6.  IF  TCONTINUE  = "A",  SECTION  TO  PRINT  MESSAGE  THAT  DATA  CURRENTLY 
ON  FORM  HAS  NOT  BEEN  STORED 

7.  IF  TCONTINUE  = "A",  SECTION  TO  REQUEST  RESPONSE  TO  CONTINUE 
PROCEDURE  OR  EXIT  TO  MENU 


TCONTINUE  = "Y" 

WHILE  TCONTINUE  = "Y" 
BEGIN 


10793 

10794 

10795 

10796 

10797 

10798 

10799 

10800 
10801 
10802 


LOOP  TO  DISPLAY  A BLANK  TDMS  FORM,  RETRIEVE  THE  DATA  ENTERED  ON  THE 
FORM,  TEST  THE  INPUT  VALUES  AND  REQUEST  CORRECTION  OF  INVALID  DATA 


10803 

10804 

10805 

10806 

10807 

10808 

10809 

10810 


FLG1  = MN" 

I MSG  = 1 

WHILE  FLG1  = "N" 

BEGIN 

IF  I MSG  = 1 THEN  TMSG 
IF  I MSG  = 2 THEN  TMSG 
IF  I MSG  = 3 THEN  TMSG 
IF  I MSG  = 4 THEN  TMSG 
IF  I MSG  = 5 THEN  TMSG 
IF  I MSG  = 6 THEN  TMSG 


= TMSG1 

= TMSG2  | 

| " " | TSYSTEM 

= TMSG3 

= TMSG4 

" " 1 TTITEM 

= TMSG5 

" " | TTREF 

= TMSG6 

TMSG2A 

10811 

10812 

10813 

10814 

10815 

10816 
10817 

TMSG4A 

10818 

10819 

TMSG5A 

10820 

10821 

10822 

10823 

10824 

10825 

10826 

10827 

10828 

10829 

10830 


FOR  FIRST  1 SYSTEMS_FORM  i083i 

BEGIN  10832 

DISPLAY  JORM  SYSTEMS_STO_FORM  IN  10833 

DEVS206: [BCDSSME2. FORMS] FORMSLIB.RLB  USING  10834 

BEGIN  10835 

IF  I MSG  NE  1 THEN  10836 

BEGIN  10837 

PUT_FORM  SYSTEM  = TSYSTEM  i0838 

PUT_FORM  SYSTEM_NAME  = TSYSNAME  10839 

PUT  JORM  ITEM_1  = TITEM1  10840 

PUT_FORM  ITEM_2  = TITEM2  i084i 

PUTJORM  ITEM_3  = TITEM3  10842 

PUT  FORM  ITEM  4 = TITEM4  10843 


THIS  SECTION  DISPLAYS  THE  STORE  SYSTEMS  FORM  AND  RETRIEVES 
THE  DATA  ENTERED  ON  THE  FORM 
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PUT 

FORM  ITEM  5 

TITEM5 

10844 

PUT' 

FORM  ITEM  6 

TITEM6 

10845 

PUT" 

FORM  ITEM  7 

TITEM7 

10846 

PUT" 

FORM  ITEM  8 

TITEM8 

10847 

PUT' 

FORM  ITEM~9 

TITEM9 

10848 

PUT" 

FORM  ITEM  10 

TITEMIO 

10849 

PUT" 

FORM  ITEM  11 

TITEM11 

10850 

PUT' 

FORM  ITEM  12 

TITEM12 

10851 

PUT' 

FORM  ITEM  13 

TITEM13 

10852 

PUT" 

FORM  ITEM  14 

TITEM14 

10853 

PUT" 

FORM  ITEM- 15 

TITEM15 

10854 

PUT' 

FORM  REF  1 

TREF1 

10855 

PUT' 

FORM  REF- 2 

TREF2 

10856 

PUT' 

FORM  REF  3 

TREF3 

10857 

PUT' 

FORM  REF-4 

TREF4 

10858 

PUT' 

FORM  REF  5 

TREF5 

10859 

PUT" 

FORM  REF  6 

TREF6 

10860 

PUT' 

FORM  REF  7 

TREF7 

10861 

PUT' 

FORM  REF  8 

TREF8 

10862 

PUT' 

FORM  REF“9 

TREF9 

10863 

PUT' 

FORM  REF**10 

TREF10 

10864 

END 

10865 

PUT  FORM  CONTINUE  = TCONTINUE 

10866 

PUT  FORM  MESSAGE  = TMSG 

10867 

END  RETRIEVE 

USING 

10868 

BEGIN 

10869 

TSYSTEM 

= GET  FORM  SYSTEM 

10870 

TSYSNAME 

* GET  FORM  SYSTEM  NAME 

10871 

TITEM1 

= GET  FORM  ITEM  1 

10872 

TITEM2 

= GET  FORM  ITEM-2 

10873 

TITEM3 

= GET  FORM  ITEM  3 

10874 

TITEM4 

= GET  FORM  ITEM  4 

10875 

TITEM5 

* GET  FORM  ITEM'S 

10876 

TITEM6 

= GET  FORM  ITEM  6 

10877 

TITEM7 

= GET  FORM  ITEM'7 

10878 

TITEM8 

= GET  FORM  ITEM"8 

10879 

TITEM9 

= GET  FORM  ITEM'9 

10880 

TITEMIO 

= GET  FORM  ITEM  10 

10881 

TITEM11 

= GET  FORM  ITEM  11 

10882 

TITEM12 

* GET  FORM  ITEM  12 

10883 

TITEM13 

= GET  FORM  ITEM- 13 

10884 

TITEM14 

= GET'FORM  ITEM  14 

10885 

TITEM15 

= GET  FORM  ITEM-15 

10886 

TREF1 

= GET~FORM  REF  I 

10887 

TREF2 

= GET  FORM  REF  2 

10888 

TREF3 

= GET'FORM  REF-3 

10889 

TREF4 

= GET'FORM  REF  4 

10890 

TREF5 

= GET  FORM  REF  5 

10891 

TREF6 

= GET'FORM  REF  6 

10892 

TREF7 

= GET  FORM  REF  7 

10893 

TREF8 

= GET  FORM  REF  8 

10894 
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TREF9  = GET  FORM  REF  9 

10895 

TREF10  = GET  FORM  REF  10 

10896 

TCONTINUE  = GET_FORM  CONTINUE 

10897 

1 

10898 

10899 

10900 

10901 

10902 

10903 

10904 

10905 

10906 

10907 

10908 


IF  TCONTINUE  NE  MA"  THEN  10909 

BEGIN  10910 

I = 1 10911 

WHILE  FN$STR_EXTRACT ( TSYSNAME , I,  1)  = " " 10912 

BEGIN  10913 

1=1+1  10914 

END  10915 

TSYSNAME  = FN$STR_EXTRACT( TSYSNAME,  I,  80  - I + 1)  10916 

END  ~ 10917 


10918 

10919 

10920 

10921 

10922 

10923 

10924 

10925 

10926 

10927 

10928 

10929 

10930 

10931 

10932 

10933 


FLG1  = "Y"  10934 

IF  TCONTINUE  NE  "A"  THEN  10935 

BEGIN  10936 

FOR  SYSTEMS  WITH  SYSTEM  = TSYSTEM  10937 

BEGIN  10938 

FLG1  = "N"  10939 

IMSG  = 2 10940 

END  10941 

IF  FLG1  = "YH  THEN  10942 

BEGIN  10943 

FOR  SYSTEMS  WITH  SYSTEM_NAME  = TSYSNAME  10944 

BEGIN  ~ 10945 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  TESTS  ARE  PERFORMED  TO 
VERIFY  THE  FOLLOWING: 

1.  TSYSTEM  DOES  NOT  ALREADY  EXIST  IN  DOMAIN  SYSTEMS 

2.  TSYSNAME  DOES  NOT  ALREADY  EXIST  IN  DOMAIN  SYSTEMS 

3.  ANY  OF  THE  VARIABLES  TITEM1  TO  TITEM15  WHICH  ARE  NOT 
BLANK  ARE  IN  FMEA_ITEM_NAME_TABLE 

4.  ANY  OF  THE  VARIABLES  TREF1  TO  TREF10  WHICH  ARE  NOT  BLANK 
ARE  IN  DOMAIN  REFERENCES 

5.  TCONTINUE  IS  "Y\  "N"  OR  "A" 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  ANY  LEADING  BLANKS  WHICH 
WERE  INADVERTENTLY  ENTERED  IN  TSYSNAME  ARE  REMOVED 
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FLG1  = "N"  10946 

IMSG  = 3 10947 

END  10948 

END  10949 

IF  FLG1  = "Y"  THEN  10950 

BEGIN  10951 

I = 1 10952 

WHILE  FLG1  = "Y"  AND  I LE  15  10953 

BEGIN  10954 

IF  I = 1 THEN  TTITEM  = TITEM1  10955 

IF  I = 2 THEN  TTITEM  = TITEM2  10956 

IF  I = 3 THEN  TTITEM  = TITEM3  10957 

IF  I = 4 THEN  TTITEM  □ TITEM4  10958 

IF  I = 5 THEN  TTITEM  = TITEM5  10959 

IF  I = 6 THEN  TTITEM  = TITEM6  10960 

IF  I = 7 THEN  TTITEM  = TITEM7  10961 

IF  I = 8 THEN  TTITEM  = TITEM8  10962 

IF  I = 9 THEN  TTITEM  = TITEM9  10963 

IF  I = 10  THEN  TTITEM  = TITEM10  10964 

IF  I = 11  THEN  TTITEM  = TITEM11  10965 

IF  I = 12  THEN  TTITEM  = TITEM12  10966 

IF  I = 13  THEN  TTITEM' = TITEM13  10967 

IF  I = 14  THEN  TTITEM  = TITEM14  10968 

IF  I = 15  THEN  TTITEM  = TITEM15  10969 

IF  TTITEM  NE  " " AND  10970 

TTITEM  NOT  IN  FMEA_ITEM_NAME_TABLE  THEN  10971 

BEGIN  10972 

FLG1  = "N"  10973 

IMSG  = 4 10974 

END  10975 

1=1+1  10976 

END  10977 

END  10978 

IF  FLG1  = "Y"  THEN  10979 

BEGIN  10980 

1=1  10981 

WHILE  FLG1  = "Y"  AND  I LE  10  10982 

BEGIN  10983 

IF  I = 1 THEN  TTREF  = TREF1  10984 

IF  I = 2 THEN  TTREF  = TREF2  10985 

IF  I = 3 THEN  TTREF  = TREF3  10986 

IF  I = 4 THEN  TTREF  = TREF4  10987 

IF  I = 5 THEN  TTREF  = TREF5  10988 

IF  I = 6 THEN  TTREF  = TREF6  10989 

IF  I = 7 THEN  TTREF  = TREF7  10990 

IF  I = 8 THEN  TTREF  = TREF8  10991 

IF  I = 9 THEN  TTREF  = TREF9  10992 

IF  I = 10  THEN  TTREF  = TREF10  10993 

IF  TTREF  NE  " " THEN  10994 

BEGIN  10995 

FLG2  = "N"  10996 
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FOR  REFERENCES  WITH  REFERENCE_NUMBER  = TTREF  10997 


BEGIN  10998 

FLG2  = "Y"  10999 

END  11000 

IF  FLG2  = "N"  THEN  11001 

BEGIN  11002 

FLG1  = "N“  11003 

IMSG  =5  iioo4 

END  iioo5 

END  11006 

1=1+1  1 1007 

END  11008 

END  noo9 

IF  FLG1  = "Y"  THEN  11010 

BEGIN  non 

IF  TCONTINUE  NE  “Y"  AND  11012 

TCONTINUE  NE  "N"  AND  11013 

TCONTINUE  NE  "A"  THEN  11014 

BEGIN  11015 

FLG1  = "N"  11016 

IMSG  = 6 11017 

END  11018 

END  11019 

END  11020 

END  11021 


11022 

1 1023 

1 1024 

1 1025 

11026 

11027 

11028 

11029 

11030 

11031 

11032 

11033 

11034 

1 1035 

1 1036 

11037 

11038 
11039 
1 1040 

11041 

11042 
1 1043 

11044 

11045 
1 1046 
1 1047 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THIS  SECTION  REARRANGES  THE 
VARIABLES  TITEM1  TO  TITEM15  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT 
BLANK  IS  TITEM1,  THE  SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TITEM2, 
ETC. 


IF  TCONTINUE  NE  "A" 
BEGIN 

TEMP  = TITEM1 


THEN 


TITEM2  TITEM3 

TITEM6  TITEM7  TITEM8 

TITEM11  TITEM12  TITEM13 

TITEM1  = FN$STR_EXTRACT ( TEMP , 1,  4) 

TITEM2  = FN$STR_EXTRACT ( TEMP , 5,  4) 

TITEM3  = FN$STR_EXTRACT ( TEMP , 9,  4) 

TITEM4  = FN$STR_EXTRACT ( TEMP , 13,  4) 
TITEM5  = FN$STR_EXTRACT ( TEMP , 17,  4) 
TITEM6  = FN$STR_EXTRACT ( TEMP , 21,  4) 
TITEM7  = FN$STR_EXTRACT ( TEMP , 25,  4) 
TITEM8  = FN$STR_EXTRACT ( TEMP , 29,  4) 
TITEM9  = FN$STR_EXTRACT ( TEMP , 33,  4) 
TITEM10  = FNJSTR  EXTRACT (TEMP,  37,  4) 


TITEM4 

TITEM9 

TITEM14 


TITEM5 

TITEM10 

TITEM15 
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TITEM11  = FNSSTREXTRACT ( TEMP , 41,  4) 
TITEM12  = FN$STR_EXTRACT ( TEMP , 45,  4) 
TITEM13  = FN$STR_EXTRACT ( TEMP , 49,  4) 
TITEM14  = FN$STR_EXTRACT ( TEMP , 53,  4) 
TITEM15  = FN$STR_EXTRACT ( TEMP , 57,  4) 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A\  THIS  SECTION  REARRANGES  THE 
VARIABLES  TREF1  TO  TREFIO  SO  THAT  THE  FIRST  VALUE  WHICH  IS  NOT 
BLANK  IS  TREF1,  THE  SECOND  VALUE  WHICH  IS  NOT  BLANK  IS  TREF2, 
ETC. 


IF  TCONTINUE 
BEGIN 
TEMP  = 

TREF1 

TREF2 

TREF3 

TREF4 

TREF5 

TREF6 

TREF7 

TREF8 

TREF9 

TREFIO 

END 


NE  "A"  THEN 


||  TREF2 

| TREF3 

|j  TREF7 

| TREF8 

R EXTRACT (1 

fEMP,  1,  ' 

TREF1 
TREF6 
= FNSSTF 
= FN$STR_EXTRACT ( TEMP , 6,  5) 

= FN$STR_EXTRACT ( TEMP , 11,  5) 
= FN$STR_EXTRACT ( TEMP , 16,  5) 
= FN$STR_EXTRACT ( TEMP , 21,  5) 
= FNSSTREXTRACT ( TEMP , 26,  5) 
= FN$STR_EXTRACT ( TEMP , 31,  5) 
= FNSSTREXTRACT ( TEMP , 36,  5) 
= FN$STR_EXTRACT ( TEMP , 41,  5) 
= FN$STR_EXTRACT ( TEMP , 46,  5) 


TREF4  j 
TREF9  | 


TREF5  1 1 
TREFIO 


IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  VERIFIED  DATA  IS  STORED  IN 
DOMAIN  SYSTEMS 


IF  TCONTINUE  NE  "A"  THEN 
BEGIN 

CAL  = "NOW" 

STORE  SYSTEMS  USING 
BEGIN 

DATE_CREATED  = CAL 
SYSTEM  = TSYSTEM 

SYSTEMNAME  = TSYSNAME 
ITEM1  = TITEM1 

ITEM2  = TITEM2 


1 1048 
1 1049 

11050 

11051 
1 1052 
1 1053 
1 1054 
1 1055 
1 1056 
1 1057 

11058 

11059 
1 1060 
1 1061 
1 1062 
1 1063 
1 1064 

11065 

11066 
1 1067 
1 1068 
1 1069 
11070 
1 1071 
1 1072 
1 1073 
1 1074 

11075 

11076 

11077 
1 1078 
1 1079 
11080 
11081 
1 1082 
1 1083 
1 1084 
1 1085 
11086 
1 1087 
1 1088 
11089 
1 1090 
1 1091 
1 1092 
11093 
1 1094 
1 1095 
1 1096 

11097 

11098 


F-256 


Datatrieve  Procedure  SYS_ST0RE  (cont.) 


ITEM3 

= TITEM3 

1 1099 

ITEM4 

= TITEM4 

1 1100 

ITEMS 

= T ITEMS 

11101 

ITEM6 

= TITEM6 

11102 

ITEM7 

= TITEM7 

1 1 103 

ITEM8 

= TITEM8 

1 1 104 

ITEM9 

= TITEM9 

11105 

ITEM10 

= TITEM10 

1 1106 

ITEM11 

= TITEM11 

1 1107 

ITEM12 

= TITEM12 

11108 

ITEM13 

= TITEM13 

11109 

ITEM14 

= TITEM14 

11110 

ITEM15 

= TITEM15 

11111 

REFERENCE1 

= TREF1 

11112 

REFERENCE2 

= TREF2 

11113 

REFERENCE3 

= TREF3 

11114 

REFERENCE4 

= TREF4 

11115 

REFERENCES 

= TREF5 

11116 

REFERENCES 

= TREF6 

11117 

REFERENCE7 

= TREF7 

11118 

REFERENCES 

= TREF8 

11119 

REFERENCE9 

= TREF9 

11120 

REFERENCE10 

= TREF10 

11121 

PROPAGATIONS  FILE  CREATED  = "NO" 

11122 

END 

11123 

END 

11124 

11125 

11126 

11197 

1 1 J £ 9 

11128 

IF  TCONTINUE  IS  NOT  EQUAL  TO  "A",  THE  DATA  STORED  IN  DOMAIN  SYSTEMS  1 

11129 

IS  PRINTED.  THE  OUTPUT  OF  THE  PRINT  STATEMENT  WILL  BE 

INCLUDED  IN 

11130 

THE  SESSION  LOG  FILE 

WHICH  IS  OPENED  BY  THE  CALLING  COMMAND 

11131 

PROCEDURE. 

1 1 132 

1 1133 

111  94 

II 

II 

II 

II 

II 

II 

II 

II 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 1 1 

11135 

IF  TCONTINUE  NE  "A"  THEN 

1 1136 

BEGIN 

1 1 137 

ICNT  = ICNT  + 1 

1'1 138 

FOR  SYSTEMS  WITH  DATE  CREATED  = CAL  AND 

11139 

SYSTEM  = TSYSTEM  AND 

11140 

SYSTEM  NAME  = TSYSNAME 

1 1 141 

PRINT  NEW  PAGE,  SKIP  3, 

11142 

COL  1, 

"RECORD  NO.",  SPACE  1, 

11143 

ICNT  (-)  USING  119,  SKIP  1, 

11144 

COL  1, 

11145 

11146 

11147 

11148 

COL  3, 

"DATE_CREATED  :",  SPACE 

1, 

11149 
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DATE_CREATED  (-)  USING  X(23),  SKIP  1, 
COL  3,  "SYSTEM  SPACE  1, 

SYSTEM  (-)  USING  X(4),  SKIP  1, 

COL  3,  "SYSTEM_NAME  SPACE  1, 

SYSTEM_NAME  (-)  USING  T(60),  SKIP  1, 
COL  3,  "ITEM1  SPACE  1, 

ITEM1  (-)  USING  X(4) , SKIP  1, 

COL  3,  "ITEM2  SPACE  1, 

ITEM2  (-)  USING  X(4) , SKIP  1, 

COL  3,  "ITEM3  SPACE  1, 

ITEM3  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM4  SPACE  1, 

ITEM4  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM5  SPACE  1, 

ITEM5  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM6  SPACE  1, 

ITEM6  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM7  SPACE  1, 

ITEM7  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM8  SPACE  1, 

ITEM8  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM9  SPACE  1, 

ITEM9  (-)  USING  X(4),  SKIP  1, 

COL  3,"ITEM10  SPACE  1, 

ITEMIO  (-)  USING  X(4) , SKIP  1, 

COL  3,  "ITEM11  SPACE  1, 

ITEM11  (-)  USING  X(4) , SKIP  1, 

COL  3,  "ITEM12  :\  SPACE  1, 

ITEM12  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM13  SPACE  1, 

ITEM13  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM14  SPACE  1, 

ITEM14  (-)  USING  X(4),  SKIP  1, 

COL  3,  "ITEM15  SPACE  1, 

ITEM15  (-)  USING  X(4),  SKIP  1, 

COL  3,  "REFERENCE1  SPACE  1, 

REFERENCE1  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCE2  SPACE  1, 

REFERENCE2  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCE3  SPACE  1, 

REFERENCE3  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCE4  SPACE  1, 

REFERENCE4  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCES  SPACE  1, 

REFERENCES  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCES  SPACE  1, 

REFERENCES  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCE7  SPACE  1, 

REFERENCE7  (-)  USING  X(5),  SKIP  1, 

COL  3,  "REFERENCES  SPACE  1, 

REFERENCE8  (-)  USING  X(5),  SKIP  1, 


11150 

11151 

11152 
1 1 153 

11154 

11155 

11156 

11157 

11158 

11159 

11160 
11161 
11162 

11163 

11164 

1 1165 

11166 

11167 

11168 

11169 

11170 

11171 

11172 

11173 

11174 

11175 

11176 

11177 

11178 

11179 

11180 
11181 
1 1 182 
11183 
1 1 184 
11185 
1 1 186 
1 1 187 
11188 

11189 

11190 

11191 

11192 
1 1 193 

11194 

11195 

11196 

11197 

11198 
1 1 199 
11200 
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COL  3,  "REFERENCE9  SPACE  1, 

REFERENCE9  (-)  USING  X(5),  SKIP  1, 
COL  3,  "REFERENCE10  :\  SPACE  1, 

REFERENCE10  (-)  USING  X(5),  SKIP  2, 
COL  1,  ••====================",  SPACE  0, 

" ====== ==",  SPACE  0, 

«====================«,  SPACE  0, 

■I ==  ii 


11201 
1 1202 
1 1203 

11204 

11205 

11206 
11207 
1 1208 


:BELL 

END 


IF  TCONTINUE  IS  EQUAL  TO  “A",  A MESSAGE  IS  PRINTED  TO  INDICATE  THAT 
THE  DATA  CURRENTLY  SHOWN  ON  THE  FORM  HAS  NOT  BEEN  STORED.  THIS 
MESSAGE  WILL  ALSO  APPEAR  IN  THE  SESSION  LOG  FILE. 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW  PAGE,  SKIP  3, 

C0L~1 , =======",  SPACE  0, 

SKIP  12, 

COL  9 “ ******************************* " SKIP  2, 

COL  9 ! “*****  RECORD  NOT  STORED  *****%  SKIP 
COL  9 " ******************************* « 9 SKIP  12, 

COL  l!  ========================================|\  SPACE  0, 


1 1209 
1 1210 
11211 
11212 

11213 

11214 

11215 
1 1216 
11217 
1 1218 
11219 
1 1220 
1 1221 
1 1222 
1 1223 
1 1224 
1 1225 
1 1226 

11227 

11228 

11229 

11230 


IF  TCONTINUE  EQUALS  "A",  A RESPONSE  IS  REQUESTED  TO  EITHER  CONTINUE  | 
THE  PROCEDURE  TO  STORE  SYSTEMS  OR  EXIT  TO  THE  MENU  | 


IF  TCONTINUE  = "A"  THEN 
BEGIN 

PRINT  NEW  PAGE 
: CLRSCRN 
TCONTINUE  = "X“ 

WHILE  TCONTINUE  NE  "Y“  AND 
TCONTINUE  NE  "N" 

BEGIN 

PRINT  SKIP  2, 

“Do  you  wish  to  continue  entering  SYSTEMS?" , 
SKIP  1 


1 1231 
1 1232 
1 1233 
1 1234 
1 1235 
1 1236 
11237 
1 1238 
11239 
1 1240 
1 1241 
1 1242 
1 1243 
1 1244 
11245 
1 1246 
1 1247 
1 1248 
11249 
1 1250 
1 1251 
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TCONTINUE  = FNSUPCASE ( * . "Y  or  N")  11252 

PRINT  " - 11253 

END  11254 

END  11255 

END  11256 

! 11257 

* 11258 

1 ==========================================================================  1 125g 

' I 11260 

! THIS  SECTION  CALLS  PROCEDURE  CREATE_PR0PAGATI0NS_SYS_1  TO  CREATE  A I 11261 

! PROPAGATIONS  DOMAIN  AND  DATA  FILE  FOR  EACH  SYSTEM  ENTERED.  | 11262 

• | 11263 

! 11265 

: CREATE_PR0PAGATI0NS_SYS_1  1 1 266 

FN$DELETE_LOG  ( " PROC " ) n267 

END-PROCEDURE  ,,268 
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Datatrieve  Table  Page 

ACCOMPLICE_REQUIRED_TABLE  G-3 

CONNECTION_TABLE  • G-4 

FAILURE_MODE_SUBMODE_TABLE  G-5 

FMEA_ I TEM_N AME_T ABLE  G-6 

FMEA_ITEM_PART_NO_TABLE  G-15 

FREQ_TIME_UNITS_TABLE  G-24 

MONTH_TABLE  G-25 

NUMBER_TABLE  G-26 

PARAMETER_TABLE  G-27 

REFERENCE_ABBREV_TABLE  G-28 

REFERENCE_SOURCE_TABLE  G-29 

SIGNAL_TABLE  G-30 

SIGN.TABLE G-31 


G-2 
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DEFINE  TABLE  ACCOMPLICE  REQUIRED  TABLE 

OOOI 

1 

0002 

i 

0003 

"LKCN"  : "LEAK:  CONNECTION" 

0004 

i 

0005 

* "WRRB"  : "WEAR:  RUBBING" 

0006 

j 

0007 

j 

0008 

ENDJABLE 

0009 

PRECEDING  PAGE  BLANK  NOT  FILMED 
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DEFINE  TABLE  CONNECT I0N_TABLE  0010 

! 0011 

1 0012 

"GAH2"  : "GASEOUS:  HYDROGEN"  0013 

! 0014 

"GAHE"  : "GASEOUS:  HELIUM"  0015 

! 0016 

"GAHG"  : "GASEOUS:  HOT  GAS"  0017 

! 0018 

"GA02"  : "GASEOUS:  OXYGEN"  0019 

1 0020 

"LQH2"  : "LIQUID:  HYDROGEN"  0021 

1 0022 

"LQHE"  : "LIQUID:  HELIUM"  0023 

! 0024 

"LQ02"  : "LIQUID:  OXYGEN"  0025 

! 0026 

"ME--"  : "MECHANICAL"  0027 

! - 0028 
"MECP"  : "MECHANICAL:  COMMON  PIECE"  0029 

! 0030 

"MERE"  : "MECHANICAL:  ROLLING  ELEMENT"  0031 

I 0032 

"TPH2"  : "TWO  PHASE:  HYDROGEN"  0033 

! 0034 

"TPHE"  : "TWO  PHASE:  HELIUM"  0035 

! 0036 

"TP02"  : "TWO  PHASE:  OXYGEN"  0037 

! 0038 

! 0039 

END  TABLE  0040 
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DEFINE 

TABLE  FAILURE_MODE  SUBMODE  TABLE 

0041 

! 

0042 

! 

0043 

"CROX" 

• 

"CORROSION:  OXIDATION" 

0044 

j 

0045 

"DFIM" 

* 

• 

"DEFORMATION:  IMPACT" 

0046 

! 

0047 

"DFIP" 

"DEFORMATION:  INTERNAL  PRESSURE" 

0048 

j 

0049 

"DFST" 

"DEFORMATION:  STATIC  LOADING" 

0050 

1 

0051 

’"DFSD" 

"DEFORMATION:  SURFACE  DEPOSITION" 

0052 

1 

0053 

’"FAIM" 

"FRACTURE:  IMPACT" 

0054 

i 

0055 

MFAIP" 

"FRACTURE:  INTERNAL  PRESSURE" 

0056 

j 

0057 

“FAST11 

"FRACTURE:  STATIC  LOADING" 

0058 

j 

0059 

* "FATF” 

"FRACTURE:  THERMAL  FATIGUE" 

0060 

1 

0061 

* "FAVF" 

"FRACTURE:  VIBRATION  FATIGUE" 

0062 

j 

0063 

* MFIBNfl 

"FRICTION:  BINDING" 

0064 

j 

0065 

# HFISLM 

• 

"FRICTION:  SLIPPAGE" 

0066 

j 

0067 

* "LKCN" 

♦ 

• 

"LEAK:  CONNECTION" 

0068 

| 

0069 

MLKERM 

"LEAK:  EROSION" 

0070 

j 

0071 

“LKFA” 

"LEAK:  FRACTURE" 

0072 

j 

0073 

"LKPD" 

"LEAK:  PRESSURE  DIFFERENTIAL" 

0074 

| 

0075 

MLKTL" 

"LEAK:  TOLERANCE" 

0076 

i 

0077 

* ,,MPSD,, 

"MATERIAL  PROPERTIES:  SURFACE  DEPOSITION" 

0078 

0079 

* "WRCV" 

"WEAR:  CAVITATION" 

0080 

i 

0081 

* "WRER" 

"WEAR:  EROSION" 

0082 

j 

0083 

* "WRPT" 

"WEAR:  PITTING" 

0084 

j 

0085 

* "WRRE" 

"WEAR:  ROLLING  ELEMENTS" 

0086 

j 

0087 

* "WRRB " 

"WEAR:  RUBBING" 

0088 

! 

0089 

i 

0090 

END_TABLE 

0091 
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DEFINE  TABLE  FME A_ I TEM_NAME_T ABLE  0092 

EDIT_STRING  IS  T(80)  0093 

! 0094 

! 0095 

"A100"  : "HOT-GAS  MANIFOLD"  0096 

! 0097 

"A150"  : "HEAT  EXCHANGER"  0098 

! 0099 

"A200"  : "MAIN  INJECTOR"  oioo 

! oioi 

"A330"  : "MAIN  CHAMBER"  0102 

• 0103 

"A340"  : "MAIN  NOZZLE"  0104 

! 0105 

"A600"  : "FUEL  PREBURNER"  0106 

! 0107 

"A700"  : "OXIDIZER  PREBURNER".  oios 

! 0109 

"B200"  : "HIGH-PRESSURE  FUEL  TURBOPUMP"  0110 

! 0111 

"B400"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP"  0112 

! 0113 

"B600"  : "LOW-PRESSURE  FUEL  TURBOPUMP"  01 14 

! 0115 

"B800"  : "LOW-PRESSURE  OXIDIZER  TURBOPUMP"  one 

! 0117 

"Clll"  : "FUEL  PREBURNER  PURGE  CHECK  VALVE"  01  is 

! 0119 

"C112"  : "OXIDIZER  PREBURNER  PURGE  CHECK  VALVE"  0120 

! 0121 

"C113"  : "OXIDIZER  DOME  PURGE  CHECK  VALVE"  0122 

! 0123 

"C114"  : "FUEL  PURGE  CHECK  VALVE"  01 24 

! 0125 

"C116"  : "FUEL  PREBURNER  AUGMENTED  SPARK  IGNITER  PURGE  CHECK  VALVE"  0126 

! 0127 

"C117"  : "OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITER  PURGE  CHECK  VALVE"  0128 

! 0129 

"C200"  : "PNEUMATIC  CONTROL  ASSEMBLY"  0130 

! 0131 

"C212"  : "BLEED  SOLENOID  VALVE"  0132 

! 0133 

"C213"  : "FUEL  SYSTEM  PURGE  SOLENOID  VALVE"  0134 

! 0135 

"C214"  : "SHUTDOWN  SOLENOID  VALVE"  0136 

! 0137 

"C215"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  INTERMEDIATE  PURGE  SOLENOID  VALVE"  0138 

! 0139 

"C217"  : "PRECHARGE  SOLENOID  VALVE"  0140 

! 0141 

"C218"  : "PREBURNER  SHUTDOWN  PURGE  SOLENOID  VALVE"  0142 
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0143 

"C251"  : "FUEL  SYSTEM  PURGE  PRESSURE-ACTIVATED  VALVE"  oiaa 

0145 

"C252"  : "MAIN  COMBUSTION  CHAMBER  DOME  PRESSURE-ACTIVATED  VALVE"  oi46 

0147 

"C254 " : "OXIDIZER  BLEED  PRESSURE-ACTIVATED  VALVE"  0148 

0149 

"C255"  : "SHUTDOWN  PRESSURE-ACTIVATED  VALVE"  0150 

0151 

"C257"  : "FUEL  PREBURNER/AUGMENTED  SPARK  IGNITER  PRESSURE-ACTIVATED  VALVE"  0152 

0153 

"C258"  : "OXIDIZER  PREBURNER/AUGMENTED  SPARK  IGNITER  PRESSURE-ACTIVATED  VALVE"  0154 

0155 

"C259"  : "PREBURNER  SHUTDOWN  PURGE  SHUTOFF  PRESSURE-ACTIVATED  VALVE"  0156 

0157 

"C260"  : Oise 

"HIGH-PRESSURE  OXIDIZER  TURBOPUMP  INTERMEDIATE  SEAL  PRESSURE-ACTIVATED  VALVE"  0159 

0160 

"C300"  : "HELIUM  PRECHARGE  VALVE  ASSEMBLY"  oiei 

0162 

"D110"  : "MAIN  FUEL  VALVE"  01 63 

0164 

"D120"  : "MAIN  OXIDIZER  VALVE"  01 65 

0166 

"D130"  : "FUEL  PREBURNER  OXIDIZER  VALVE"  01 67 

0168 

"D140"  : "OXIDIZER  PREBURNER  OXIDIZER  VALVE"  0169 

0170 

"D150"  : "CHAMBER  COOLANT  VALVE"  0171 

0172 

"D210"  : "FUEL  BLEED  VALVE"  0173 

"D220"  : "OXIDIZER  BLEED  VALVE"  0175 

0176 

"D300"  : "ANTIFLOOD  VALVE"  0177 

0178 

"D500"  : "GASEOUS  OXYGEN  CONTROL  VALVE"  0179 

0180 

"D600"  : "RECIRCULATION  ISOLATION  VALVE"  oisi 

0182 

"E110"  : "MAIN  FUEL  VALVE  ACTUATOR"  oias 

0184 

"E120"  : "MAIN  OXIDIZER  VALVE  ACTUATOR"  oias 

0186 

"E130"  : "FUEL  PREBURNER  OXIDIZER  VALVE  ACTUATOR"  oi87 

0188 

"E140"  : "OXIDIZER  PREBURNER  OXIDIZER  VALVE  ACTUATOR"  0189 

0190 

"E150"  : "CHAMBER  COOLANT  VALVE  ACTUATOR"  0191 

0192 

"FOOO"  : "CONTROLLER"  0193 
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0194 

"F800"  : "FLIGHT  ACCELERATION  SAFETY  CUTOFF  SYSTEM"  0195 

0196 

"G100"  : "MAIN  IGNITER  NUMBER  1"  0197 

0198 

"G200"  : "MAIN  IGNITER  NUMBER  2"  0199 

0200 

"G300"  : "FUEL  PREBURNER  IGNITER  NUMBER  1"  0201 

0202 

"G400"  : "FUEL  PREBURNER  IGNITER  NUMBER  2"  0203 

0204 

"G500"  : "OXIDIZER  PREBURNER  IGNITER  NUMBER  1"  0205 

0206 

"G600"  : "OXIDIZER  PREBURNER  IGNITER  NUMBER  2"  0207 

0208 

"H101"  : "ELECTRICAL  HARNESS  1W1"  0209 

0210 

"H102"  : "ELECTRICAL  HARNESS  1W2"  0211 

0212 

"H103"  : "ELECTRICAL  HARNESS  1W3"  0213 

0214 

"H104"  : "ELECTRICAL  HARNESS  1W4"  0215 

0216 

"H105"  : "ELECTRICAL  HARNESS  1W5"  0217 

0218 

"H107"  : "ELECTRICAL  HARNESS  1W7"  0219 

0220 

"H108"  : "ELECTRICAL  HARNESS  1W8"  0221 

0222 

"H109"  : "ELECTRICAL  HARNESS  1W9"  0223 

0224 

"H110"  : "ELECTRICAL  HARNESS  1W10"  0225 

0226 

"Hill"  : "ELECTRICAL  HARNESS  1W11"  0227 

0228 

"H112"  : "ELECTRICAL  HARNESS  1W12"  0229 

0230 

"H113"  : "ELECTRICAL  HARNESS  1W13"  0231 

0232 

"H114"  : "ELECTRICAL  HARNESS  1W14"  0233 

0234 

"H115"  : "ELECTRICAL  HARNESS  1W15"  0235 

0236 

"H116"  : "ELECTRICAL  HARNESS  1W16"  0237 

0238 

"H118"  : "ELECTRICAL  HARNESS  1W18"  0239 

0240 

"H119"  : "ELECTRICAL  HARNESS  1W19"  0241 

0242 

"H120"  : "ELECTRICAL  HARNESS  1W20"  0243 

0244 
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"H122"  : "ELECTRICAL  HARNESS  1W22"  0245 

0246 

"H128"  : "ELECTRICAL  HARNESS  1W106"  0247 

0248 

"J201"  : "MAIN  CHAMBER  PRESSURE  SENSOR  NUMBER  1"  0249 

0250 

"J202"  : "MAIN  CHAMBER  PRESSURE  SENSOR  NUMBER  2"  0251 

0252 

"J203"  : "LOW-PRESSURE  OXIDIZER  TURBOPUMP  DISCHARGE  PRESSURE  SENSOR"  0253 

0254 

"J205"  : "FUEL  PREBURNER  CHAMBER  PRESSURE  SENSOR"  0255 

0256 

"J207"  : "OXIDIZER  TANK  PRESSURE  SENSOR"  0257 

0258 

"J208"  : "HIGH-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  PRESSURE  SENSOR"  0259 

0260 

"J209"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  BOOST  DISCHARGE  PRESSURE  SENSOR"  0261 

0262 

"J210"  : "FUEL  INJECTION  PRESSURE  SENSOR"  0263 

0264 

"J211"  : "HYDRAULIC  PRESSURE  SENSOR"  0265 

0266 

"J213"  : "FUEL  PURGE  PRESSURE  SENSOR"  0267 

0268 

"J216"  : 0269 

"HIGH-PRESSURE  OXIDIZER  TURBOPUMP  INTERMEDIATE  SEAL  PURGE  PRESSURE  SENSOR"  0270 

0271 

"J218"  : "LOW-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  PRESSURE  SENSOR"  0272 

0273 

"J220"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  DISCHARGE  PRESSURE  SENSOR"  0274 

0275 

"J221"  : "COOLANT  OUTLET  PRESSURE  SENSOR"  0276 

0277 

"J222"  : "PRECHARGE  PRESSURE  SENSOR"  0278 

0279 

"J223"  : "FUEL  PREBURNER/AUGMENTED  SPARK  IGNITER  PURGE  PRESSURE  SENSOR"  0280 

0281 

"J224"  : "OXIDIZER  PREBURNER/AUGMENTED  SPARK  IGNITER  PURGE  PRESSURE  SENSOR"  0232 

0283 

"J225"  : "PNEUMATIC  SHUTDOWN  SUPPLY  PRESSURE  SENSOR"  0284 

0285 

"J228"  : 0286 

"HIGH-PRESSURE  OXIDIZER  TURBOPUMP  SECONDARY  SEAL  CAVITY  PRESSURE  SENSOR"  0287 

0288 

"J229"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  COOLANT  LINER  PRESSURE  SENSOR"  0289 

0290 

"J301"  : "HIGH-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  TEMPERATURE  SENSOR  NUMBER  1"  0291 

0292 

"J302"  : "HIGH-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  TEMPERATURE  SENSOR  NUMBER  2"  0293 

0294 

0295 


"J303" 
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"HIGH-PRESSURE  OXIDIZER  TURBOPUMP  DISCHARGE  TEMPERATURE  SENSOR  NUMBER  1"  0296 

I 0297 

"J304"  : 0298 

"HIGH-PRESSURE  OXIDIZER  TURBOPUMP  DISCHARGE  TEMPERATURE  SENSOR  NUMBER  2"  0299 

I 0300 

"J306”  : "LOW-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  TEMPERATURE  SENSOR"  0301 

! 0302 

"J309"  : "COOLANT  OUTLET  TEMPERATURE  SENSOR"  0303 

I 0304 

"J310"  : "MAIN  OXIDIZER  VALVE  WARMANT  TEMPERATURE  SENSOR"  0305 

t 0306 

"J311"  : "MAIN  FUEL  VALVE  WARMANT  TEMPERATURE  SENSOR"  0307 

I 0308 

"J312"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  BOOST  DISCHARGE  TEMPERATURE  SENSOR"  0309 

! 0310 

"J601"  : "FUEL  FLOW  PICKUP  NUMBER  1"  0311 

! 0312 

"J602"  : "FUEL  FLOW  PICKUP  NUMBER  2"  0313 

I -0314 

"J607"  : "LOW-PRESSURE  FUEL  TURBOPUMP  SPEED  PICKUP"  0315 

! 0316 

"J608"  : "HIGH-PRESSURE  FUEL  TURBOPUMP  SPEED  PICKUP"  0317 

! 0318 

"J701"  : "FUEL  FLOWMETER"  0319 

! 0320 

"K101"  : "LOW-PRESSURE  FUEL  TURBOPUMP  DISCHARGE  DUCT"  0321 

! 0322 

"K102"  : "LOW-PRESSURE  FUEL  TURBOPUMP  TURBINE  DRIVE  DUCT"  0323 

! 0324 

"K103"  : "LOW-PRESSURE  FUEL  TURBOPUMP  TURBINE  DISCHARGE  DUCT"  0325 

I 0326 

"K104 " : "FUEL  BLEED  DUCT"  0327 

I 0328 

"K105"  : "PREBURNER  FUEL  SUPPLY  DUCT"  0329 

I 0330 

"K106"  : "HIGH-PRESSURE  FUEL  DUCT"  0331 

I 0332 

"K107"  : "FUEL  TANK  PRESSURE  DUCT"  0333 

! 0334 

"K108"  : "HOT-GAS  MANIFOLD  COOLANT  DUCT"  0335 

| 0336 

"K110"  : "FUEL  BLEED  DUCT"  0337 

I 0338 

"Kill"  : "AUGMENTED  SPARK  IGNITER  FUEL  SUPPLY  DUCT"  0339 

! 0340 

"K112"  : "OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITER  FUEL  SUPPLY  DUCT"  0341 

I 0342 

"K113"  : "FUEL  PREBURNER  AUGMENTED  SPARK  IGNITER  FUEL  SUPPLY  DUCT"  0343 

I 0344 

"K201"  : "LOW-PRESSURE  OXIDIZER  TURBOPUMP  DISCHARGE  DUCT"  0345 

! 0346 
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"K202"  : "LOW-PRESSURE  OXIDIZER  TURBOPUMP  TURBINE  DRIVE  DUCT"  0347 

0348 

" K203"  : "OXIDIZER  BLEED  VALVE"  0349 

0350 

"K204 " : "OXIDIZER  TANK  PRESSURE  DUCT"  035 1 

0352 

"K205"  : "HIGH-PRESSURE  OXIDIZER  DUCT"  0353 

0354 

" K206"  : "FUEL  PREBURNER  OXIDIZER  SUPPLY  DUCT"  0355 

0356 

" K207"  : "HEAT  EXCHANGER  SUPPLY  DUCT"  0357 

0358 

"K208"  : "PREBURNER  PUMP  INLET  DUCT"  0359 

0360 

"K209"  : "THRUST  CHAMBER  AUGMENTED  SPARK  IGNITOR  OXIDIZER  SUPPLY  LINE"  0361 

0362 

" K210"  : "FUEL  PREBURNER  AUGMENTED  SPARK  IGNITOR  OXIDIZER  SUPPLY  LINE"  0363 

0364 

"K211"  : "OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITOR  OXIDIZER  SUPPLY  LINE"  0365 

0366 

"K212"  : "OXIDIZER  PREBURNER  OXIDIZER  SUPPLY  DUCT"  0367 

0368 

"K213"  : "OXIDIZER  BLEED  LINE"  0369 

0370 

" K214"  : "OXIDIZER  RECIRCULATION  BLEED  LINE"  0371 

0372 

"K215"  : "POGO  GASEOUS  OXYGEN  SUPPLY  LINE"  0373 

0374 

"K216"  : "RECIRCULATION  ISOLATION  VALVE  OVERRIDE  LINE"  0375 

0376 

"K217"  : "ACCUMULATOR  SUPPLY  LINE"  0377 

0378 

"K218"  : "POGO  PRECHARGE  LINE"  0379 

0380 

"K301"  : "HYDRAULIC  DRAIN  LINES"  0381 

0382 

"K302 " : "FUEL  DRAIN  LINES"  0383 

0384 

"K303"  : "OXIDIZER  DRAIN  LINES"  0385 

0386 

"K304"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  PRIMARY  TURBINE  SEAL  DRAIN  LINE"  0387 

0388 

"K305"  : "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  SECONDARY  TURBINE  SEAL  DRAIN  LINE"  0389 

0390 

"K306"  : "HIGH-PRESSURE  OXIDIZER  SEAL  DRAIN  LINE"  0391 

0392 

"K401"  : "HYDRAULIC  SUPPLY  HOSE"  0393 

0394 

"K402"  : "HYDRAULIC  SUPPLY  LINE"  0395 

0396 

"K403"  : "HYDRAULIC  RETURN  HOSE"  0397 
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0398 

"K501"  : "HELIUM  SUPPLY  LINE"  0399 

0400 

"K502"  : "NITROGEN  SUPPLY  LINE"  oaoi 

0402 

"K504"  : "FUEL  PURGE  LINE"  0403 

0404 

"K505"  : "INTERMEDIATE  SEAL  PURGE  LINE"  0405 

0406 

"K506"  : "FUEL  BLEED  VALVE  CONTROL  LINE  NUMBER  1 " 0407 

0408 

"K507"  : "OXIDIZER  BLEED  VALVE  CONTROL  LINE"  0409 

0410 

"K508"  : "OXIDIZER  PREBURNER  OXIDIZER  VALVE  PNEUMATIC  SHUTDOWN  LINE"  0411 

0412 

"K509"  : "MAIN  CHAMBER  OXIDIZER  PURGE  LINE  NUMBER  1"  0413 

0414 

"K510"  "HIGH-PRESSURE  OXIDIZER  TURBOPUMP  TURBINE  SEAL  PURGE  LINE"  04is 

0416 

"K5H"  : 0417 

"MAIN  OXIDIZER  VALVE/FUEL  PREBURNER  OXIDIZER  VALVE  PNEUMATIC  SHUTDOWN  LINE"  04is 

0419 

"K513"  : "MAIN  FUEL  VALVE/CHAMBER  COOLANT  VALVE  PNEUMATIC  SHUTDOWN  LINE"  0420 

0421 

"K514"  : "CHAMBER  COOLANT  VALVE  PNEUMATIC  SEQUENCE  LINE"  0422 

0423 

"K515"  : "HELIUM  SUPPLY  LINE  NUMBER  1"  0424 

0425 

"K516"  : "NITROGEN  SUPPLY  LINE"  0426 

0427 

"K517"  : "OXIDIZER  PREBURNER  OXIDIZER  PURGE  LINE"  0428 

0429 

"K518"  : "PREBURNER  VALVE  OXIDIZER  PURGE  LINE"  0430 

0431 

"K519"  : "HELIUM  SUPPLY  LINE  NUMBER  2"  0432 

0433 

"K520"  : "FUEL  BLEED  VALVE  CONTROL  LINE  NUMBER  2"  0434 

0435 

"K530"  : "MAIN  CHAMBER  OXIDIZER  PURGE  LINE  NUMBER  2"  0436 

0437 

"K531"  : "POGO  HELIUM  VENT  LINE"  0438 

0439 

"K532"  : "POGO  HELIUM  SUPPLY  LINE"  0440 

| 0441 

"K533"  : "POGO  GASEOUS  OXYGEN  CONTROL  LINE"  0442 

I 0443 

"K534"  : "RECIRCULATION  ISOLATION  VALVE  CONTROL  LINE"  0444 

I 0445 

"K600"  : "CONTROLLER  COOLING  DUCT"  0446 

I 0447 

"L101"  : "FUEL  SEALS"  0448 
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"L102''  : "OXIDIZER  SEALS" 

"L103"  : "HOT-GAS  SEALS" 

"L104"  : "HYDRAULIC  SEALS" 

"L105"  : "PNEUMATIC  SEALS" 

"M000"  : "GIMBAL" 

"N300"  : "ENGINE  VEHICLE  INTERFACE" 
"N400"  : "POGO  ACCUMULATOR" 


0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 


"N701" 

"N702" 

"N703" 

"N704" 

"N705" 

"N706" 

"N707" 

"N708" 

"N709" 

"N710" 


0463 

"PNEUMATIC  CONTROL  ASSEMBLY  FUEL  SYSTEM  PURGE  ORIFICE  (P3)"  0464 

0465 

"COMPONENT  FUEL  DRAIN  ORIFICE  (DIS.  3)"  0466 

0467 

"OXIDIZER  PREBURNER  OXIDIZER  VALVE  OXIDIZER  SYSTEM  PURGE  ORIFICE  (N5)"0468 

0469 

"FUEL  PREBURNER  OXIDIZER  SYSTEM  PURGE  ORIFICE  (N8)"  0470 

0471 

"OXIDIZER  PREBURNER  OXIDIZER  SYSTEM  PURGE  ORIFICE  (N9)"  0472 

0473 

"HIGH-PRESSURE  FUEL  TURBOPUMP  BEARING  PURGE  ORIFICE  (Nil)"  0474 

0475 

"MAIN  INJECTOR  OXIDIZER  PURGE  ORIFICE  (N7)"  0476 

0477 

"MAIN  COMBUSTION  CHAMBER  DRYING  PURGE  ORIFICE  (N15)"  0478 

0479 

"GASEOUS  OXYGEN  CONTROL  VALVE  GASEOUS  OXYGEN  OUTLET  ORIFICE  (026)"  0480 

0481 

"HEAT  EXCHANGER  BYPASS  ORIFICE  (019.1)"  0482 

0483 


"N711"  : 0484 

"FUEL  PREBURNER  AUGMENTED  SPARK  IGNITER  OXIDIZER  ORIFICE  (LINE  RS007187)"  0485 


0486 


"N712"  : 0487 

"OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITER  OXIDIZER  ORIFICE  (LINE  RS007186)"  0488 

0489 


"N713"  : 0490 

"OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITER  OXIDIZER  ORIFICE  (012.1.3)"  049i 

0492 


"N714" 

"N715" 

"N716" 

"N717" 


"FUEL  PREBURNER  AUGMENTED  SPARK  IGNITER  OXIDIZER  ORIFICE  (016.1.3)" 
"OXIDIZER  PREBURNER  OXIDIZER  DOME  PURGE  ORIFICE  (012.1.2)" 

"FUEL  PREBURNER  OXIDIZER  DOME  PURGE  ORIFICE  (016.1.2)" 

"MAIN  COMBUSTION  CHAMBER  AUGMENTED  SPARK  IGNITER  FUEL  ORIFICE  (F5.2)" 


0493 

0494 

0495 

0496 

0497 

0498 

0499 
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! 0500 

"N718"  : “OXIDIZER  PREBURNER  AUGMENTED  SPARK  IGNITER  FUEL  ORIFICE  (F25)"  osoi 

I 0502 

“N719"  : "FUEL  PREBURNER  AUGMENTED  SPARK  IGNITER  FUEL  ORIFICE  (F21)"  0503 

1 0504 

"N720"  : 0505 

"MAIN  COMBUSTION  CHAMBER  LIQUID  02  AUGMENTED  SPARK  IGNITER  ORIFICE  UPSTREAM"  osoe 

t 0507 

"N721"  : 0508 

"MAIN  COMBUSTION  CHAMBER  LIQUID  02  AUGMENTED  SPARK  IGNITER  ORIFICE  DOWNSTREAM"  osos 

1 0510 

"N722"  : 05ii 

"MAIN  COMBUSTION  CHAMBER  LIQUID  02  AUGMENTED  SPARK  IGNITER  BYPASS  ORIFICE"  os  12 

I 0513 

"N723"  : "HELIUM  PRECHARGE  VALVE  DRAIN  LINE  ORIFICE"  0514 

I 0515 

"N724"  : "GASEOUS  OXYGEN  CONTROL  VALVE  GASEOUS  OXYGEN  INLET  ORIFICE  (024)"  osie 

I 0517 

I 0518 

END  TABLE  05 19 
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DEFINE  TABLE  FMEA_ITEM_PART_NO_TABLE  0520 

EDIT_STRING  IS  T(40)  0521 

! 0522 

! 0523 

"A100"  : "RS007051"  0524 

i 0525 

"A150"  : "RS008801"  0526 

! 0527 

"A200"  : " RS009122"  0528 

! 0529 

"A330"  : "RS009170"  0530 

! 0531 

"A340"  : "RS009168"  0532 

! 0533 

"A600"  : "RS009020"  0534 

! 0535 

"A700"  : "RS009004"  0536 

•'  0537 

"B200"  : "RS007501"  0538 

! 0539 

"B400"  : "RS007701"  0540 

! 0541 

“B600"  : " RS007601"  0542 

! 0543 

"B800"  : "RS007801"  0544 

! 0545 

"Clll"  : "RS008059"  0546 

! 0547 

"C112"  : "RS008059"  0548 

! 0549 

"CllS"  : "RS008059"  osso 

! 0551 

"C114"  : "RS008059"  0552 

! 0553 

"C116"  : "RS008059"  0554 

! 0555 

"C117"  : "RS008059"  0556 

i 0557 

"C200"  : "R0019450"  osse 

! 0559 

"C212"  : "RS010341"  oseo 

! 0561 

"C213"  : "RS010341"  0562 

! 0563 

"C214"  : "R0010725"  0564 

! 0565 

"C215"  : "RS010341"  osee 

! 0567 

"C217"  : "RS010341"  oses 

! 0569 

"C218"  : "RS010341"  0570 
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1 

0571 

"C251" 

"RS008021" 

0572 

| 

0573 

"C252" 

"RS008021" 

0574 

| 

0575 

"C254" 

"RS008021" 

0576 

J 

0577 

"C255'1 

"RS008021" 

0578 

{ 

0579 

"C257" 

"R0010984 " 

0580 

I 

0581 

"C258" 

"RS008021" 

0582 

! 

0583 

"C259" 

" RS019401" 

0584 

| 

0585 

"C260" 

"RS0011041" 

0586 

1 

0587 

"C300" 

"RS010180" 

0588 

! 

0589 

"DUO" 

"RS008256" 

0590 

1 

0591 

"D120" 

" RS0082555" 

0592 

; 

0593 

"D130" 

"RS008257" 

0594 

1 

0595 

* "D140" 

"RS008258" 

0596 

j 

0597 

* nD150" 

"RS008259" 

0598 

i 

0599 

* MD210M 

"RS008056" 

0600 

i 

0601 

* ,,D220n 

"RS008056" 

0602 

i 

0603 

"D300" 

"R0019130" 

0604 

i 

0605 

* "D50Q" 

"RS010141" 

0606 

1 

0607 

"D600" 

"RS010161" 

0608 

i 

0609 

* "EllO" 

"RES1008" 

0610 

j 

061  1 

o 

CVJ 

UJ 

"RES1008" 

0612 

J 

0613 

"E130" 

"RES1008" 

0614 

j 

0615 

"E140" 

"RES1008" 

0616 

1 

0617 

"E150" 

"RES 1008 11 

0618 

1 

0619 

"F000" 

"RES1007" 

0620 

I 

0621 
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"F800"  : "RES1393"  0022 

0623 

"G100"  : "RS003685"  0624 

0625 

"G200"  : "RS003685"  0626 

0627 

"G300"  : "RS003685"  0628 

0629 

"G400"  : "RS003685"  0630 

0631 

"G500"  : "RS003685"  0632 

0633 

"G600"  : "RS003685"  0634 

0635 

"H101"  : "RS008101"  0636 

0637 

"H102"  : "RS008102"  0638 

0639 

"H103"  : "RS008103"  0640 

0641 

"H104"  : "RS008104"  0642 

0643 

"H105"  : "RS008105"  0644 

0645 

"H107"  : "RS008107"  0646 

0647 

"H108"  : "RS008108"  0648 

0649 

"H109"  : "RS008109"  0650 

0651 

"H110"  : "RS008110"  0652 

0653 

"Hill"  : "RS008111"  0654 

0655 

"H112"  : "RS008112"  0656 

0657 

"H113"  : "RS008113"  0658 

0659 

"H114"  : "RS008114"  0660 

0661 

"H115"  : "RS008115"  0662 

0663 

"H116"  : "RS008116"  0664 

0665 

"H118"  : "RS008118"  0666 

0667 

"H119"  : "RS008119"  0668 

0669 

"H120"  : "RS008120"  0670 

0671 

"H122"  : " RS008122"  0672 
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0673 

"H128"  : "R0019511"  0674 

0675 

"J201"  : "RES7001"  0676 

0677 

"J202"  : "RES7001"  0678 

0679 

"J203"  : "RES7001"  oeso 

0681 

"J205"  : "RES7001"  0682 

0683 

''J207"  : "RES7001"  0684 

0685 

"J208"  : "RES7001"  0686 

0687 

"J209"  : "RES7001"  oess 

0689 

"J210"  : "RES7001"  0690 

0691 

"J211"  : "RES7001"  0692 

0693 

"J213M  : “RES7001"  0694 

0695 

"J216"  : “RES7001"  * 0696 

0697 

"J218"  : "RES7001”  0698 

0699 

"J220"  : "RES7001"  0700 

0701 

"J221"  : "RES7001"  0702 

0703 

"J222"  : "RES7001M  0704 

0705 

"J223"  : "RES7001”  0706 

0707 

"J224"  : "RES7001H  0708 

0709 

"J225"  : "RES7001"  0710 

0711 

"J228"  : "RES7001"  0712 

0713 

"J229"  : "RES7001"  0714 

0715 

"J301"  : "RES7004"  0716 

0717 

" J302"  : "RES7004"  07is 

I 0719 

"J303"  : “RES7004"  0720 

I 0721 

"J304"  : "RES7004"  0722 

I 0723 
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"jade*1  : "RES7002"  0724 

0725 

"J309"  : "RES7002"  0726 

0727 

"J310"  : "RES7002"  0728 

0729 

"J311"  : "RES7002"  0730 

0731 

"J312"  : "RES7002"  0732 

0733 

" J601 " : "RES7005"  0734 

0735 

"J602"  : "RES7005"  0736 

0737 

"J607"  : "RES7005"  0738 

0739 

"J608"  : "RES7005"  0740 

0741 

"J701"  : "RS008241"  0742 

0743 

"K101"  : "RS007018"  0744 

0745 

"K102"  : "RS007034"  0746 

0747 

"K103"  : "RS007037"  0748 

0749 

"K104"  : "RS007043"  0750 

0751 

"K105"  : "RS007012"  0752 

0753 

"K106"  : "RS007026"  0754 

0755 

"K107"  : "RS007046"  0756 

0757 

"K108"  : "R0010748"  0758 

0759 

"K110"  : "RS007168"  0760 

0761 

"Kill"  : "R0010758"  0762 

0763 

"K112"  : "R0010751"  0764 

0765 

"K113"  : "R0010752"  0766 

0767 

"K201"  : " RS007015"  0768 

0769 

"K202 " : "RS007035"  0770 

0771 

"K203"  : "RES1221"  0772 

0773 

"K204 " : "RS007016"  0774 
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0775 

"K205"  : " RS007021"  0776 

0777 

"K206"  : "RS007031"  0778 

0779 

" K207"  : "RS007083"  0780 

0781 

"K208"  : " RS007029"  0782 

0783 

" K209"  : "RS007179"  0784 

0785 

" K210"  : " RS007228"  0786 

0787 

"K211"  : "RS007229"  0788 

0789 

"K212"  : " RS007032"  0790 

0791 

" K213"  : "RS007041"  0792 

0793 

" K214"  : "RS007297"  0794 

0795 

"K215"  : "RS007285"  0796 

0797 

11 K216"  : "RS00?369"  0798 

0799 

"K217"  : " RS007283"  oaoo 

0801 

"K218"  : "RS007284 " oao2 

0803 

" K301"  : "RS007107,  R0019438,  R0019439"  0804 

0805 

"K302"  : "VARIOUS  (7)"  osoe 

0807 

"K303"  : "VARIOUS  (6)"  osos 

0809 

"K304"  : "RS007118"  osio 

081 1 

"K305"  : "RS0071U"  osi2 

0813 

" K306"  : "RS007163"  08i4 

0815 

"K401"  : "RES 1001"  osie 

| 0817 

"K402"  : "RS007212,  RS007219,  RS007220"  osie 

I 0819 

"K403"  : "RES 1002"  0820 

I 0821 

"K501"  : "RES1004"  0822 

I 0823 

" K502 " : "RES1003"  0824 

I 0825 
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Datatrieve  Table  FMEA_ITEMJ>ARTJ^O_TABLE 

"K504"  : "RS007130" 

"K505"  : "RS007123" 

"K506"  : HRS0071281' 

"K507"  : "RS007127H 
"K508"  : "RS007124" 

"K509"  : "RS007103" 

MK510H  : "RSQ07131" 

"K5H"  : "RS007125,  RS007126" 

"K513"  : 11 RS007171,  R0019565M 
"K514"  : "R0G19353" 

"K515"  : MRS007270H 
"K516M  : "RS007132 11 
'“K517 M : MRS007134" 

"K518M  : HRS007135M 
MK519“  : "RS007133'1 
HK520M  : HRS007271M 
MK530M  : l,RS007368" 

MK531M  : "RS007289" 

"K532"  : ^$007286" 

MK533"  : "RS007287 11 
MK534”  : ,,RS007288,, 

MK600"  : " RS0104351' 

"LlOl11  : "VARIOUS" 

"L102"  : "VARIOUS" 

"L103"  : "VARIOUS" 

"L104"  : "VARIOUS" 


(cont. ) 


0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 

0834 

0835 

0836 

0837 

0838 

0839 

0840 

0841 

0842 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 
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'1105"  : "VARIOUS" 

"M000"  : "RS008821" 

"N300"  : "NOT  APPLICABLE" 

"N400"  : " RS007280" 

"N701"  : "RS007159" 

"N702"  : "RE251-4301" 

"N703"  : " RS007184 " 

"N704"  : "RS007184 " 

"N705"  : "RS007184 " 

"N706"  : "RS007159" 

"N707"  : "RS007159" 

"N708"  : "RS007159" 

"N709"  : "RS007352" 

"N710"  : "RS008681" 

"N711"  : "RS009038" 

"N712"  : "RS009038" 

"N713"  : "RS009100" 

"N714"  : "RS009100" 

"N715"  : "RS009100" 

"N716"  : "RS009100" 

I 

"N717M  : "RS009546" 

i 

"N718"  : HRS009546" 

i 

,N719M  : HRS009546n 

( 

#,N720”  : "RS009G38" 

i 

,,N721n  : "RS009038" 


(cont. ) 


0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 
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"N722"  : 

"RS009038" 

0928 

j 

0929 

"N723"  : 

"RE251-4301" 

0930 

i 

0931 

"N724"  : 

"R0019972" 

0932 

j 

0933 

j 

0934 

END  TABLE 

0935 
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DEFINE  TABLE  FREQ_TIME_UNITS_TABLE 

0936 

0937 

0938 

"ACOUSTIC"  : 

"HERTZ" 

0939 

0940 

"ELECTRICAL"  : 

“HERTZ" 

0941 

0942 

“FLOW"  : 

"HERTZ" 

0943 

0944 

"PRESSURE"  : 

"HERTZ" 

0945 

0946 

"RPM"  : 

"HERTZ" 

0947 

0948 

"THERMAL"  : 

"SECONDS" 

0949 

0950 

"TORQUE"  : 

"HERTZ" 

0951 

0952 

"VIBRATION" 

"HERTZ" 

0953 

0954 

"WORN  PARTICLES"  : 

"SECONDS" 

0955 

0956 


0957 

0958 


END  TABLE 
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Datatrieve  Table  MONTH_TABLE 


DEFINE  TABLE  MONTH_TABLE  0959 

! 0960 

! 0961 

"JAN"  : "JANUARY"  0962 

! 0963 

"FEB"  : "FEBRUARY"  0964 

! 0965 

"MAR"  : "MARCH"  0966 

! 0967 

"APR"  : "APRIL"  0968 

! 0969 

"MAY"  : "MAY"  0970 

! 0971 

"JUN"  : "JUNE"  0972 

{ 0973 

"JUL"  : "JULY"  0974 

! 0975 

"AUG"  : "AUGUST"  0976 

! 0977 

"SEP"  : "SEPTEMBER"  0978 

J 0979 

"OCT"  : "OCTOBER"  0980 

! 098 1 

"NOV"  : "NOVEMBER"  0982 

! 0983 

"DEC"  : "DECEMBER"  0984 

! 0985 

! 0986 

END_TABLE  0987 
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Datatrieve  Table  NUMBER_TABLE 


DEFINE  TABLE  NUMBER  TABLE 


0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
101  1 
1012 


END  TABLE 
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Datatrieve  Table  PARAMETER_TABLE 


DEFINE  TABLE 

PARAMETERJABLE 

1013 

j 

1014 

} 

1015 

* "AMPLITUDE,‘ 

: "SAME  AS  SIGNAL  UNITS" 

1016 

1017 

* "FREQUENCY" 

: "HERTZ" 

1018 

1 

1019 

* "PHASE" 

: "DEGREES" 

1020 

i 

1021 

! 

1022 

END  TABLE 

1023 
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Datatrieve  Table 

REFERENCE_ABBREV_TABLE 

DEFINE  TABLE  REFERENCE_ABBREV_TABLE 

1024 

i 

1025 

1 

1026 

* “AEROJET" 

: "AJ" 

1027 

1 

1028 

’"BATTELLE" 

: "BA" 

1029 

1 

1030 

* "MARTIN  MARIETTA1* 

: "MM" 

1031 

i 

1032 

* "NASA  HDQ" 

: "NH" 

1033 

j 

1034 

* "NASA  MSFC" 

: "NM" 

1035 

j 

1036 

* "PRATT  & WHITNEY" 

: "PW" 

1037 

j 

1038 

"ROCKETDYNE" 

: "RD" 

1039 

j 

1040 

j 

1041 

END  TABLE 

1042 
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Datatrieve  Table  REFERENCE_SOURCE_TABLE 
DEFINE  TABLE  REFERENCE_SOURCE_TABLE 

i 

! 

* "AEROJET"  : “AEROJET  TECHSYSTEMS  COMPANY** 

j 

* “BATTELLE"  : “COLUMBUS  DIVISION,  BATTELLE  MEMORIAL  INSTITUTE" 

j 

* “MARTIN  MARIETTA"  : “MARTIN  MARIETTTA  DENVER  AEROSPACE" 

» 

"NASA  HDQ"  : "NASA,  HEADQUARTERS" 

j 

* "NASA  MSFC"  : “NASA,  GEORGE  C.  MARSHALL  SPACE  FLIGHT  CENTER" 

I 

* “PRATT  & WHITNEY"  : 

“GOVERNMENT  PRODUCTS  DIVISION,  UNITED  TECHNOLOGIES,  PRATT  6 WHITNEY  AIRCRAFT" 

j 

* "ROCKETDYNE"  : "ROCKETDYNE  DIVISION,  ROCKWELL  INTERNATIONAL  CORPORATION" 

i 

i 

END  TABLE 


1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 
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Datatrieve  Table  SIGNAL_TABLE 


DEFINE  TABLE  SIGNAL 

TABLE 

1063 

1 

1064 

1 

1065 

"ACOUSTIC" 

"ACOUSTIC  EVENTS" 

1066 

| 1 

1067 

"ELECTRICAL" 

"VOLTS" 

1068  • 

J 

1069 

"FLOW" 

"LB-MASS  PER  SECOND" 

1070 

| 

1071 

"PRESSURE" 

"PSIA" 

1072 

1 

1073 

"RPM" 

"RPM" 

1074 

J 

1075 

"THERMAL" 

"DEGREES-K" 

1076 

1 

1077 

'"TORQUE" 

"INCH-POUNDS" 

1078 

i 

1079 

’"VIBRATION" 

"ACCELERATION-G" 

1080 

i 

• 

1081 

’"WORN  PARTICLES" 

"PARTICLES  PER  SECOND" 

1082 

i 

1083 

i 

1084 

ENDJABLE 

1085 
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Datatrieve  Table  SIGN  TABLE 


DEFINE  TABLE  SIGN_TABLE 

j 

; 

li  + il  . 11^.11 


| 

II  _ It  , II  _ II 


| 


I 

ENDJABLE 


086 

087 

088 

089 

090 

091 

092 

093 

094 
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FAILUREM0DES_M0D1_F0RM  H-19 

FAILUREM0DES_M0D2_F0RM  H-25 

FAI LUREM0DES_ST01_F0RM  . . . H-31 

FAILUREM0DES_ST02_F0RM  H-37 

MODU  LES_F I N_FORM H-43 

MODULES_MOD_FORM  H-47 

MODULES_STO_FORM  H-53 

PRO  PAG AT I ONS_F I N_FORM  H-57 

PROPAGATIONS_MOD_FORM  H-63 

PROPAGATIONS_STO_FORM  H-71 

REFERENCES_FIN_FORM  H-79 

REFERENCES_MOD_FORM  H-85 

REFERENCES_STO_FORM  H-91 

SYSTEMS_FIN_FORM H-97 

SYSTEMS_MOD_FORM  H-107 

SYSTEMS_STO_FORM  H-l 17 
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